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l*Q INTRODyCTI 



1.0 IliIEmy£IIi3li 

SES Is a NOS ytlllty »*hoss isajor function is to locate tnd 
proctss PROCEOUtSS so ts to gtn trite strtiws of CCL to th« systtn 
control statement f 1 1 e. 

PROCiDURES are text records Mhlch contain CCL Interspersed Mith 
dlreotlves to the SES processor ltself» The SIS directives c«n 
cause CCL to foe genertted accordlnj to specified conditions* 

SES Is Invoiced by an SES control stateiRentf either frc« a 
terminal session or from a batch job» The SES control stattaent 
specifies the na^e of the procedure to be processed^ and optlonally> 
parameters for that procedure* SES locates the pr ocedure* processes 
lt» and generates the appropriate CCl stream to the control 
stateiaent file* 

This docunaent is Intended as a guide to those «iho wish to xrlte 
procedures to be processed by SES* 
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2.0 ££4IIIEES«aE-I£S 

This station provldas m averYl an of tht feiturts «ndl ftciiiti«s 
available to the yser of SES. The features fall Into two related 
clisses* the first class being the ways in which para«eters ipay he 
specified on. the SES control sttteaient# and the second class fcelng 
the fsitures provided hy the S£S processor. The two classes are 
related* since in general* for each way that a ^%f mi%t%T can be 
written on the SiS control statement* there Is a corresponding S£S 
directive or function availihte to process that particular aspect of 
the paraaieter. 



2.1 ^0MI£BL.SI4I£i£iI«£iiiyE£S 

This section looks briefly at the way in which an SES control 
stateaient and parameters way he written. 

Continyatlon lines. SES procedure calls are not limited to 
xinH control statement line. Continuation lines may be Input* 
whether from a terminal or In batch. The total length of a 
stateritntf including continuation lines* Is limited to 200C 
characters. 

o Procedure par anieters «iy be specified by keyword* or 
posit lonally* or by a combination of both siethoris. 

Paraineters of a procedure way have multiple values. 

ParaJweters of a procedure may be coded solely as a Keyword 
with no values* In which case the Keyword may be used to 
sped fy options. 

o A parameter keyword aay have multiple synonyms. 

o Pirtweter values may be coded as arbitrary character strings. 

The user may indicate Qn the SiS control statement that a 
particular user's catalog Is to be searched when locating a 
procedure. 

Users may establish procedure library search order zx\4 other 
default Information In a PROFILE* which SES accesses at call 
time. 
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£•0 F€ATURgS OF SiS 

2.2 PmCEBlSm PiOCESSMG 



2.2 EaflCLiSyEi«£SO£ISSIiS 

This ststlon provides a brief look at ttie features aval I able to 

thm SES procedure nrlter* 

\faluas and defaults esttblJsiitd In « user*s PROFILE may b« 
iooessed* 

The names of parameters* their possible types* and the nyiber 
of values that Pay fee codtd for tfieis* art predtflnad within 
the procedure. 

S£S provides functions to test for the type» nu«feer of values* 
and existence of a paraiReter. 

SSS provides a function to Index along a multiple vtlued 
parameter. 

The procedure writer way dtflne variables to hold values 
during procedure processing. 

CCL statewents pay be generated conditionally or Iteratlvely 
via IF and MHILS directives. 

o Expression evaluation ^^6 string manlpui atlon facilities. 

Generation of unique strings for naiaes and labels. 

Text from Ml thin the body of a procedure may be ROUT'ed to any 
specif I ed f I le. 

Text may be IHCiUOE'd Into the body of the procedure froi any 
specified file* or froas any specified procedure of any 
specified plib library. 

o local *iies may be tested for attributes* similar to the FILE 
function provided by the operating system. 

f 
The use#'s environment at procedure call time can be restored 
at procedure end. 
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2,0 FEAT-ytSS OF SES 

2.3 LAYOUT OF THIS SUIDi 

2.3 L4xayi-a&-iaii«iyii£ 

father than syppiylng an aii»fiali#ti €al list of directives ^n4 
functlQnsf the features are going to be Introduced In related 
chunkrn* mostly II lystratecl fey exawplts. As far as possible^ the 
exaisples given are taken fro?» real live S£S procedyres^ to avoid 
creatlrig artificial exafflples. The general layout of the guide Is in 
this order. 

Basic SSS concepts^ processing and syntax* 

o Expression aval ua tor. 

Functions. 

o SES directives. 

o Partieter definition Bn4 processing. 

o Fi le systew directives. 

o Various summaries In appendices. 
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3.0 ailK^i£S.EEO£ISiIMS 

This ststion is going to shorn tlit major aspects of hou Si$ 
Performs Its processing. Topics covered In this section are. 

o procedure call foraiat^ sHo»iing the basic format of an SIS 
control statewent. 

iihat a procedure looks like. 

o The j»ecfianlsffl for substitution of paraaieters and names. 

o SSS directives ulthln procedure files* 

o Prof I Its and the SEARCH directive. 

o locating a procedure, ixplalns the search method that SSS 
uses to locate a procedure. 

Processing a procedure. iKplains what happens to each line of 

text In an SES procedure. 
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3.0 iASIC SiS PiaC£SSIN€ 

3*1 SBs ?mtmmE CALL format 



3.1 s£s.£iaa£ayt£-i:4Li-iOEiiii 

The basic forw of an SiS procedars call Is. 

SiS«proceflyre.iiaM« i lst«of.i>artii«ter s 

»litre '•proctdur e.ntait" Is the name of tht proctdurt to be processed* 
and *•! Ist^of .parameter s" Is the (optional) list of paraiaettrs for 
thi procedure. The list Is separated frow the procedure name by a 
coflnaa or by spaceisi or botfc. Sleiaents in the ptrameter list are 
separated froia each other by coiimas or spacels) or both. The 
paraiteter list Is terrain tted by an end of lint* a period* or « 
seislcot on. 

Parasieters are generally written In the for?w of 

lceyiiord«waitte 

this Is only a part of the story howeyer* and later In the docu«ent 
*«eMI get to specific definitions of the manner In which parameters 
ffliay be coded. 
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3,ia SES PtOCEDURi LAYOUT 



3.ia ses ptacEDURS laygut 

The genarai layout of an SiS procedure I si 



i^aOCMAfli 
\ l»ARM 
\ PARN 



\ PARHEND 



where PROCNAHi Is the name of the procedure* 



there mre zero to laany of these PARH directives* 

They are used to define the exact format of the 

partPtters In the list* The forai of a PARH 

directive will he defined In a later section* 

this Indicates the end of the PARH directives* 
and 3s aiuilS neccessary even when there are no 
PARH directives* 



BODY OF PROCEDURE the procedure hody contains CCi which gets 

written to the control stateiient file* and SSS 
directives which are PTfiC%ss%^ at procedure build 
tlnie* 



\ blah III ah 



any line which starts with the directive 
character* which Is a r%y%f^n slash <\) by 
default* Is taken to be an SES directive* 



A procedure of naie PROCNAHE way be a local file* or a file In 

the current user's catalog* or it ?Bay be a record In a PL 18* 8ut> 

no matter where the procedure copes froai* the first ilne of the 

procedure isust be the na^e of the file or record In which the 
procedure resides* 
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3*0 BASIC S£S PROCSSSINO 
3.E $gS SY?^TAX 

TNis stction provides a stiort and Ir^foriial Introduction to the 
syntije of th% SiS processor* k morm formal and coapitt® syntax 
definition Is provided at th« end of the docuwent* 

Tlie discussions on syntax use the characters C and 3 to Indicate 
that an Item Is optional* 



3.2.1 DIRECTIVES 

To detenu I ne If a tine of a procedure Is a directive* the S£S 
processor goes through the foMoMing stapst 

1. I^ny leading spaces on the tine are Ignored* 

2* SES looks for a variable caSled DIRCHAR <for OIRectlve 
CHARacter) In Its tables <He*ll discuss variables laterl* If 
DIRCHAR Is undefined* or If DIRCHAR Is 4^f\n%4 but contains a 
value other than a single character i«hlch Is a ••visible 
delimiter character** (space Is not considered a visible 
dellilter)* then S£S nlll use the reverse slash iW as the 
directive char act er# otheritlse SiS nil I use the character In 
DIRCHAR as the directive character* 

2* If tht (now) first character of the line Is equal tc the 
directive character j then the line Is assumed to be either a 
directive or an assignment statement* and Is processed 
accordingly* 



3.2.2 VARIA81SS 

Variables are one thru thirty-one characters In length* siust 
start with a letter* and laay contain only letters* digits^ or the 
characters «* $* a* or #• 



3.2*3 MUM8ERS 

SES only handles Integers* there art no reals* Integers are 
represented internally by 48 bit quantities* Thus Integers range 
bet*iean -2**47-l and 2**47-1* 

Nuibers are normally assumed to be decimal* but bases other than 
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3.0 8ASIC SiS PiOCESSIMG 
3.2«3 NUI^SSiS 

decimal pay ba r%prBSBnt%4 fey appancling a base specification to thi 

string of digits* Tht base isay be any base between Z and 16# but 

generally* tNe useful bases are Z* 8* 10 and 16* and any others are 
sort of ^eird* For exasipleJ 

49T5 Is a dtolwal nuaiber 

377475C9) Is an octal nuiiber 

94 46 {161 Is a hexadecli»al nymber 

note that heicadicl^nai numbers land In fact any base requiring use of 
the letters A thru F) must start with a declmai digit Ceven If it's 
zerol* to avoid confusion with nawes* 



3. a. 4 STI^IHGS 

Strings are arbitrary strings of characters enclosed In single 
^uote aiirks* for exainplet 

*Just the place for a Snarky tii« 8elf«aii cried** 

to raprasent a string ^luote Inside a string* you must code It as two 
string quotes « 

•The tine Is Seven a««Clock* 

two Juxtaposed string quotas* that Is* ••* represent a null* or 
eatpty string. 



3.2.§ 830LEA^S 

Strictly speaking* there aren't really booleans In SSS. However* 
SiS has the predefined variables TRU£* YES* FALSi and NO. The first 
two represent the value TIIUE* and tfe second two represent the value 
FALSE. They are conformable with Integers* In that TRUE or YES are 
equal to one (11* and FALSE and HO are equal to zero <0). 
Otherwise* ^qm QSIQ Z£LQ. ^Aiilfi Is assumed to be TRUE* and a zero 
value Is assumed to be FALSE. 



3.2.6 FUNCTIONS 

SES provides laany built In functions. A function reference 
follows thi standard form* that ist 
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3.0 BJ^SIC S£S PmCESSm^ 
3 •£•6 FUNCTIONS 



fynctlon.na»d CI I st.of.argunicntsl 



whtre **f uncti oi^^f^aie* Is the n^m^ of tht function to b« fsfer«nced# 
and *•! ist«,of .argumsnts*' Is the arguwentCs) to the function* 
ilemtnts of an arguiRtnt list are separatad fron each other by cosrsas 
or spaceCsl or both* 



3«a*7 iXPRESSIQN SVAIUATION 

SIS can evaluate expressions containing mixed motHe Integer^ 
string^ boolean and function references* Implicit type conversion 
Is perfornsed as required* 



3.2.8 cQnmms 

A coffliaent Is any arbitrary string of characters enclosed between 
doubl t quote marks {*•)• The coiuaient i«ay not Itself contain cowBient 
quotes. Comments may appear anywhere that a space Piy appear^ wn4 
in fact Is syntactically equivalent to a space* 

Cosjwents way not appear before the directive character of an SiS 
directive line* nor after the continuation signal on lines which are 
being continued. 



3.2*9 CONTINUATIOH LINiS 

Any SES directive or call line fiiay be continued by placing a 
continuation signal C..) at the end of the line to be continued* A 
continuation signal Is defined to be two or more contiguous periods* 
The total length of an S£S call line may not exceed 2€00 characters^ 
*<hile the length of a directive line may not exceed 256 characters. 
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3*0 BASIC SES PROCSSSIIiG 
3.a.l0 SUSSTITyTIOM 

3,aa0 SUBSTITUTlOt^ 

4 »aJor fynstlon of SSS Is to sybstityte part««ttrs Into 
procedures* In actual fact# SES can substitute eleaents other then 
p^rtmetarsf and this letter aspect is covered first* 

The besic substitution pechenlsi Mhen processing a line of t 
procedure Is thlsi 

1* SiS looks for e variable SUBCHAR (for SUSstltution CHARecterl 
In its tables CMeMI discuss variables later)* If SUSCKAR Is 
undefined^ or If SUSCHAR is defined but contains a value other 
than a single character i«hlch Is a ^visible delimiter 
character** (space is not considered a visible del imlterl* then 
$£S i^lil use the aiiiptrsand (€1 character as the substitution 
character* otherwise SSS till I use the character In SUBCHAR as 
the substitution character* 

E* If SES finds on a tlne# the substitution character follcMed by 
a naiie folloided by the substitution character # then S£S 
follows the procedure belom 

a) S£S first searches for a paraiseter of the specified 
namet and if such a parameter Is not found* then SES 
searches for a variable of the specified name* If the 
parameter or variable is defined* then the value of the 
variable* or the value of the parameter Is Inserted 
Into the output text at that point* without the 
substitution characters* 

bl If SiS finds neither a parameter of the specified name* 
nor a variable of the specified name* then the 
substitution characters are stripped off and the 
literal character string which comprises the name is 
Inserted Into the output text* 
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m^t 2 



For Q%nmpl9$ supposing that tfit substltytlon cliaracter is S# and 
tNtt the mint TIN is associated with the valye VANS. 



laEil^ 



OMtfiiii 



i)LSLiMQMtim 



KBiunitrmt) 



REilNDIYANG) i this example Is str «i ghtfomard. I 

I The yaiye YANG Is simply S 

I substituted for the na«e YIH. * 

I i 



^iymocsNiNE) 



iEyiHDC^lIN) I since niH wasn't defined* then J 
I the substitution characters are S 
I simply removed. t 



4-™— .••«™-., 
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3.0 BASIC SiS l»ROC£SSING 
3.3 PROFILES 

3.3 EEllEiill 

A PROFILE is an liBportant» albeit optional* cowponsnt of the SES 
systeia. Any user mmy choose to establish a PROFILE in their 
catalog. PROFILE fol Ioms the saiae rules as any SES procedure^ that 
ls> the name of the fjlt wust be PROFILE* nn4 the first line of the 
profile iBust be the word PROFILE. Frow th^re on* the prof lie way 
conttin just about any SiS cosiniand. The »ost Important aspect of 
the profile Is the SEARCH directive* explained In the next section. 

Typically* the types of things that a user way place In the 
prof! la Mouid bei 

o a coiiaiand to set a variable called PASSMOR to the user's 
password. Procedures Mhlcti optionally run as batch Jobs can 
then get the user's password *fithout having to be told It on 
the S£S control statement. 

commands to establish defaults for library names (for the 
source code and library maintenance proc&iiiires)* and ether 
data for various procedures. 

SEARCH directives to establish a search order for procedures. 

It Is possible for a user to have more than one PROFILE* and 
select which one to use by coding the PN or P parameter on the SES 
control statesnent* for example. 

SES#PH«ai ternate.prof I le«proGfi«flie I Ist.of.par aiieters 

allows the user to use the file "alternate.prof I le" as the PROFILE 
for the duration of that procedure call. Also* a user may use 
someone else's profile by coding the PUN or PU parameter* for 
ex amp I e t 

SES* PIIN«prof ll«.otfner«proena!ae list«of.para«eters 

allocs the user to access the profile belonging to "prof 1 1 e^owner". 
Of course* the PH and PUN parameters may be used together. 
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3.0 BASIC 3ES PROCSSSING 

3.3a SiARCH OIRgCTIVi - gSTABlISH IISRARY SEARCH ORDfH 

3.3.1 SEARCH OIRSCTl¥i - ESTABLISH LIBRARY SEARCH OROiR 

Tilt SiARCH directive af Ioms a user to establlshf ultliln PROFILE^ 
tht ni««s of tlbr«ri9s to setrcli whmn tocating a proctdyrt* end tlso 
the user r»ai»es In wfiosa catalogs tlioss procedure libraries reside. 
The isneral form of SiARCH ist 

\ SEARCH sear ch.si»ec# sttsrcli.spee. •••••• 

Mf?ere '•seircti.spec*' Is In the forait 

user.fiane 

or 

I lli>r«ry.na««» llbrary.naiie«««« •» user^iiaiiel 

The first for»i Indicates that the library naie contained in the 
predefined variable SiSLMAII Is to be searched for In the catalog of 
the user specified by "user.na^e". The second form gives a list of 
library naiaesf with the last IteiB In the list being the user name In 
Mhose citilog those libraries m^y be found. 
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3.0 BASIC SSS PRQCSSSINS 
3.4 IQCATI146 A ?ROC£DUt£ 



3.4 iaSIMlii.4-.£aQC£0tyii 

S£S ptrforms Its searcti for a glvsn procedure according to well 
defined and consistent rules. Sesically S£S l3ts three methods of 
specifying how a procedure Is to be located. SSS has en Intirnal 
tibia »hlcJi contains the foil owing datu 



nbrery.nane I yser.nane « 

I 
i Ibriry^nane I user^nane I 



etc. 



I 



etc. 
etc* 



SI yen that 
methods Mhlch 
folloMing* the 



the table aay be set up by one of three different 
are eKpitlned in more detail In the sections 
procedure that SiS follows to locate a procedure Isi 



1. If there Is a local file of the ••procedure^naiie**^ whose first 
line Is ••procedure^nawe*** then SES uses that file as the 
procedure. 

2. SIS searches the catalog of the user whose user nasie appears 
as the first entry in the table# for a file of ntiaf 
••procedure.naffle**^ whose first line Is ••procedure.naiise*. If 
such a file is founds then SiS uses that file as the 

procedure. 

3.1 For etch entry In the search tables SES searches for a library 
of nai«e "ll brary^naae" In the catalog of the corresponding 
"user.nawe'*^ and searches that library Cwhich msj; have a 
directory) for a TEXT record of na«e ••procedure.naiiie''. If SSS 
eyentualty finds such a records then SiS uses that record bs 
the procedure. 



If the search 
message 



Is unsuccessf ylf then SES Issues an error 



pr ooedure«fia«e HOT FOUND 



The next three sections provide a more detailed explanation of 
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3*0 BASIC SES PROCESSING 
3.4 IQCATIMS A PRQCEOyRE 

the fflathods by which SES has Its search table set up* The aiethods 
are basically th# default* the user naaie specified on the SES 
control statewent* and the SEARCH directive* 



3,4.1 DfcFAUlT mom OF SEARCH 

ihen SiS Is called* It sets up the following data In Its search 
tablet 

♦«• — — -«^ + — , , — + 

S SSiSLNAIfS I user. n«iR« ! 

* 4 * 

1 €SiSLHAHS i SSiSUHANS I 



This table Is the normal default for SES* **user.naiBe" Is the 
user najiie of the currently logged In user* 

••SESIHA!1«« Is i predefined verlabla which contains the nai«e of the 
SBS procedure Library NANe* *SESUNAH" is a predefined variable 
which contains the SES User NAHe* There will be a fnore detailed 
section on predefined variables later in the document* 



3.4*2 SEARCH SPECIFIED ON CONTROL STATEHSNT 

yhen the user types the S€S control stateisent* he pay specify via 
the UN or J parefneter of the SES program* which user's catalos to 
look in for the procedure specified by the call* For examples 

SSS*UN«user.nafBe«procedure.nafiie i ist«.of. parameters 

specifies that the procedure ••procedure.nawe'' Is to be searched for 
aoll in the catalog of the user "user .name** < If the procedure Is not 
already local >« In this case SES aiodlfles its search table to 
contain only the following datat 

I SSiSLHAIffi 1 user.fiaae ■ 
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3»0 BASIC SiS PROCiSSINS 

3.4. a SEARCH SFiCIFXiO ON COMTRQL STATEHiNT 



uliare ••SSSlHAfi** contains the SES library HAHe as feeforsf and 
••ustr^i !»«*• Is the user ntrae specified on the SES control steteiRent* 
It Is also possible to tell SiSf via the LI8PFH or l?FN pnfnm%t%fp 
the niine of the library to be searched for the procedure* For 

txamp let 

3£$#L?FII»I ib.fiaiiie«proeedure^na«iie i ist.of.paraiieters 

specifies that the procedure ••procedyre.naiae^ Is to be searched for 
iiflil \n the library "I Ib^nasse*'* In this case SiS laodifles Its 
search t«ble to reflect the foMoNlng dates 

1 iib.naiie I user«fia«e \ 



lihere **user^ntpe*' Is the user natae of the current user* and 
••llb.naiRe'* Is the library name specified on the S£S control 
statement. Of course^ the UN and IISPFN parameters aay be used 
together. 



3.4.3 SEARCH OROER SPECIFIED VIA SEARCH DIRECTIVES 

The third aiethod of specifying the order In Mhlch to look for the 
procedure Is via SEARCH directives In the user's PROFILE. For 
examplet supposing that the user's PROFILE contains the following 
SEARCH d I recti vat 

\ SEARCH (H0LNiX8#4INtXB»HG74)t Afl74» JFOSt {AH0YLI8#ED73) 
In this case SES Hould modify Its search table to look like thist 



J HOLnLIB 
JIttLIB 
SSESLNAH& 
SSESLNAHS 
ANDYLIB 



He74 f 



HS74 
AH74 
JF03 
E073 
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3*0 BASIC SiS l>ROCiSSIHG 

3.4.3 SiAUCH Bmm Sf>E€IfI£0 VIA SEARCH DltECTIVSS 



iati tf5«t SSAtCH dJr«ctlvts «r€ iinor«d If the UN or ilSPFN 
pafai«et@rs wsrt sptcifled on tJi« SSS control stttsment. 
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3.0 BASIC SiS I»II0CESSIH6 

3.5 ^ROCiSSINS A PRQCSOURi 

How tssyping tNat SSS is able to locata the required procedure* 
tiitn tht procedure Is processed* it letst In principle* on « one 
pass* line by line basis— vie say "In pr I ncl ?!€••* since In fact 
beceyse of Wlii {looping) directives* i given line aity be processed 
tsany tlees. Also each line »ay be scanned tiilce. leaving ail ttiat 
aside for the nonces thm processing for each line of the procedure 
goes i Ikt thi s» 

1. The line Is scanned by the substitution processor. Any 
substltutabie elements are processed at this stage* and the 
replacement text Inserted Into the line at that point. This 
process continues until the Khole line Is scanned. 

2. The line is then exafiilned to see If It is an SSS directive 
(or assignment statement)* and if so it Is processed 
accor di ngly. 

3. If the lln« Is not an SSS directive* then that line Is written 
to the output streaw* nhatevtr that happens to be at the tlwe. 
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4.0 EXPtESSION gVAlUATIQN 



4.0 EittsiuaM-MJiiiiiiJOi 

AlthoygN* as *«« said btfore* the pr Inclptl fynctlon of S£S Is to 
suijstltute parameters Ir^to pr oc8dures# the expression evaluatcr of 
SES Is a sufficiently IfRportant tsptct of processing SES procedures 
that It and Its related topics are covered first* before we ever get 
to explaining paraaieters and parameter substitution. By starting 
t^lth the expression evalystor* you*fl find It easier to understand 
parameters when we get to them. 

4.1 4iiIEiai!iI-0E^£aS£E£lSIQMS-I0.MlilMiES 

iithin the body of an SiS procedure It Is possible to have 
variables. Variables are used for many purposes* such as cortrcl 
vtrlablts In I^HIL£ loops* bulldlnf character strings* etc* etc. 

If you assign a value to a variable which was previously 
undefined* then SiS defines the variable for you* and Initializes It 
to the value of the expression to the right of the equal sign. If 
the variable was already defined* then Its new value becomes the 
value of the assignment expression. 

Variables within S£S way be of type HAHE* IHTiGER* STRINS* or 
BOOLEAN. Mhen a variable Is Initialized* It takes the type of the 
initialization expression. Upon subsequent assignment to the 
variable* It takes the type of the expression to the right of the 
equal sifn. For exaiaple* here are four variables being declared! 

\ stringy « 'HQIZARELLA CH£iS€» 

\ nuiiiii«r « 547<a) 

\ logical » rtUi 

\ anaiie » fred 

In the exainpit* the first variable Is of type STRIngi the second 
Is of type NUnber C there Is no type REALIi the tMrd Is of type 
BOOLE AM I and the fourth Is of type NAHe CIt is assumed that fred was 
not previously defined as a variable). Generally speaking* the 
expression evaluator performs implicit type conversion* so that 
variables of different types may be mixed within an expression. 
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4.0 IXPtiSSION iVAlUATION 

4.2 OI^StATaES IN SXPRgSSIOH SVALUATION 



4.2 QEEEiIOM-IM.IIEa£ISiai.£MyiAIIIli 

Before i#« go further Into exi>fesslon evaluation^ *is« 1 1 shorn the 
optrttors tfitt way b« us«d In nxpresslons. Th«y f«n Into tht 
classes of arithwetlc^ string* relational and logical operators. 
Tilt table Ijsloii also Indicates the relative priority of the 
operators. 
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Not Squal To 

Mot E«iual To 

Sreater Than 

Greater Than or Equal To 

less Than 

less Than or E^uai To 
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logical OR 
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o Operators at the sa»e precedence level are processed fro® 
left to rl ght. 

The right operand of the exponentiation operator must be 
greater than or equal to zero. 
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4*E OPSiATORS IN iXFRgSSION IVAiUATION 



Ths rl gHt oparsnd of tht division snrt modulo operators must 
not bt zero. 

Process Ing of relattof^at operators Is as follOMSi 

If both operitids of a relational operator can be 
converted to Integers^ ttiey are so converted and then 
coipar ed| otherwise both operands are converted to 
strings (If necessaryl and then cofflpartd* 
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4.0 SXPigSSION gVAlUATIGN 

4,3 gXAHPliS OF ASSIGHHfMT STATSHiNTS 

4 ♦ 3 ^14iEL£i«aEaiIiaMiiMI-SI4IEiEiIS 

In tills section we're goini t© look «t an sxaiaple of the yst of 
tht exprasslofi evtlu«tor# showing ho*« sylisti tytion of naaes norks In 
conjunction ulth assignment* This example Is froia tlie SiS HATH 
procedure^ Mtiicii acts as a quick and tllrty «lesk caicylator* At the 
start of the MATH procedure* the folloiting chynk of code way he 
found. 

\ curnamq « «VALO£« « 1 *• 

\ SoyrnafRiiS « "• 2 * 

• 
\ f«SG *&cyrii««<i& « • ♦♦ Scurnan^S •• 3 •• 

•tc« 
etc. 
etc* 

Note ho*f we made use of connnent quotts In the example In order to 
number the lines of interest to the discussion* How the way this 
works Is that line 1 sets a var I able ♦•curnajsq* to the chtrtcter 
string 'VAIUE** Mhen line 2 Is processedf the substi tutor looks for 
soaiething called "curntwci"* and finds the string *¥ALUf»* so that by 
the time the assignment stateiient Is processed^ the line will 
actually r%n4 

\ VALUi « Q 

so the variable VAtU£ gets Initialized to zero* Now line 3 Is 
scanned by the substi tutor* and when substitution Is finished* the 
I Ine wl I i I ook like 

\ HS6 •VALUE « • ♦♦ VALUE 

now the expression evaluator Is called into play to process the 
arguifient to the HSG directive* HSG wants Its final argument In the 
form of a string* The expression evaluator finds that the first 
part of the expression is Indeed a string* Then It finds that the 
second part of the expression calls for a string concatenation of 
whatevsr is in the variable VALUE* Naie lookup finds that the 
variable contains the value 0* The expression evaluator converts 
the 3 to a string and concatenates It to the previous string In the 
expression* Finally the HSG directive outputs to the user a message 
that says 

¥ALUi « C 
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5.0 Ey^aiiaii 

SSS has a nuiaber of functions for yss by the expression 
evtiuator* These functions tre expltlned In detail In the foUonlns 
sections* First there's a brief overview of the functions. 

UNIQUE generates unMue seven character strings In 

the form of labels or fllenaines* 

Attribute Testing There are functions that test whether a 

variable Is a namet number » string or 
operator* or whether an arlthisetlc 

expression Is legal* 

Strlfig Handling string handling functions are provided by 

SUSSTR# which returns a substring of a 
larger string* STRLS!^# which returns the 
length of a string* GENSTR* which restores a 
P^rs^^ string to Its original for mat* and 
functions to raise or lower the case of 
alphabetic characters* 

Number Conversion the functions OCT* DEC and Hi% perform 

Integer to string conversion* 

DATE* CLOCK and TIM these functions returns the date and tlwe In 

various formats as specified by their 
arguments* 

VALEXPR this function can be used to Validate Mn4/or 

eVAluate an EXPResslon contained within a 
string variable* 

TOKSN this function reads the next valid S£S token 

Csyntactic unit) frois a string variable* 
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S«0 FUI^CTIONS 

5.1 UNiaUS - SiNSftATi UHiaUi MAHES Oil LABgiS 

This function is used by most of the S£S procedures to generate 
unique nifles for Intermediate soretcti files* unNue nawes for 
programs Invoked by ttie 3SS procedures* and unique labels < In those 
rare cases Mhere libels are needtdl* They are explained In detail 
belOM* 

UNIQil£{NAKE} returns as a value a seven character alphanuner Ic 

string* starting with the letters ZQ« The naie 
Is guaranteed to be different from the na^e of 
any file currently assigned to the running Job 
frofii Mhlch this SES procedure Is being called* 

IINIQII£(iA8it) returns as a value a seven character alphanumeric 

string starting tilth the characters 9Q« 

The IIHiaOi function repeats about every seventeen hours* 

As an exiiiple of hoM this is used* the fol lowing Is a short 
extract froiR the SES COFYACR procedure* 

\ copyaer « UNIQUECNAHE) 
\ library «UNICIUi(NAI4EI 



iXTRACr($copyaer8;*C0PyACil/T«A3$*LFH«&lliirmry&»L«l»R0€LI8»yN*SSiSyNAM&} 
ScopyacrSIHiilifTHEI^il 



The two variables at the top are Initialized to unique ne^es* so 
that when those names are used* they will not conflict with any file 
that the user way have assigned to the Job* 

It Is good practice to use unique natnes for files and programs 
wherever possible* because then the user does not have to remember 
which procedures use which fllenaiaes* 
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5.0 FUMCTIOIIS 

5.2 TESTIHS ATTI^IBIIT£3 OF gXPiESSIOHS 

Ths functions described below art mainly used to test the type of 
an expression. NAI1# NUHt and STI? retyrn try© If the argument is of 
type MH^t HUHber or STRing# respectively. OEF returns true If Its 
argument Is OiFlned* DSFF returns true If Its arfument Is a Oiflned 
Function or a symbolic operator. OPR returns true If Its arguient 
is an QPeRttor. VAIIXPR checks and cofuputes a VAlId iXPResslon. 



5. 2.1 Hkn - TEST FOR mm 

Ih^ HAH function returns trye If Its ariument Is a HAMe. The 
general form of NAH Is* 

NAH (express I ofil 

if ••expression" evaluates to something that fijQ h& &UU^&Lt&li tSk M 
DJffiS* then the NAN function returns TRUi» otherwise It returns 
FALSE. For exawplet 

\ test * HAH fFRED) 

\ test • NAH ('ASC* ♦♦ •DiF»l 

\ test « Hkn njUNK* ♦♦ TRUE) 

all return the value TRUE. In the first exaaiple# FR£D Is definitely 
a nane* In the second example^ the result of concatenating the tuo 
strings results In a value Mhlch can be converted to a naie^ Bn6 In 
the ttiird exasaple^ the result of the expression Is the string 
*JUNKl*f Mhlch can also be converted to a name. So In each case# 
the value of variable ••test" Is TRUE. However* the testst 



\ 


test 


* HAH 


(12345) 


\ 


test 


« NAH 


(TRUEI 


\ 


test 


« NAH 


Cn23ABCM 



all fai l# since 12345 Is not a n^mm but a numben TRUE converts to 
the value 1^ which is also not a name* and I123A8C* Is a string 
which cannot be converted to a valid name. 
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5*Q FONCTIONS 

§.£•2 mn - TEST FOR HUflBER 

5.2.2 nm ^ TgST FOR NUffaSR 

The NUH function returns true If Its arguisent Is a NilHber. The 
general for* of HUH 1st 

HUH I express inn I 

If "expr esslon" evaluates to something tfitt £ia ks ^HUt&ttM ia J 
QUlllfiC* thin the NUN function returns TRUS» other*ilse It returns 
FALSE. fQf ax amp let 

\ test « mn 14975001 

\ test « nm 1377 ♦♦ •I8I»I 

\ test » NUH I0A8C ♦♦ THUi ♦♦ M16MI 

ill rtturn the valyt TRUE. In the first exainplef 4975Ci Is 
definitely a number # In the second exanplef the result of 
concatenating the two strings results In a value which can be 
converted to t number # and In the third exi«plt# the result of the 
expression Is the string •0A8Cltl6Mj which can also be converted to 
a number. So In each caset the value of variable "test" Is TRUf. 
However 9 the testst 

\ test « null IFILENAN} 

\ test « nm (« Haddocks Eyes*) 

both fall* since FILEHAH is not a number but a name and the 
character string 'Haddocks Eyes' cannot be converted to a valid 
nuaiber. 



5.2.3 STR - TEST FOR STRING 

The STR function returns true If Its argument Is a STRIng. The 
general form of STR I si 

STR {expression! 

If "expression" evaluates to sofuething that sja hM i2imxft£.tfiil Is I 
SltiOJ* then the STR function returns TRUE* otherwise it returns 
FALSE. For example! 

\ test « STR (THROCKSl 

\ test • STR 17357251811 

\ test « STR l*Nurdie yer Cordwangler *} 
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5,0 FUNCTIONS 

S»2»3 STR - TSST FOR STRING 

all return th« value TRUi# since any of those things* ntaes* numbers 
and strings cen Indeed be converted to a string* In fact It looks 
as If you can convert laxililaii li ill to a strlnff an<f If this Is 
ttie oasof Mint's the use of the SIR function? Hell as you've 
probably guessed* life's not as siiple as a 1 1 that* and there Is In 
fact one thing that cannot be convtrttd to a string* and that Is an 
illlJLte.d^diii£* ie'il talk about this a bit niore when ^e describe 
paraaetsrs later In the guide* 



5*ZMk DSF • TSST FOt OEFINiO YARIASli 

DEf stands for DiFlned* and Its alii In Ufa Is to return TRUi If 

the naaie specified as Its argument is deined 14 ^ ^l£iaiil^« The 

general for?a of OEF I si 

OEFfnaaifil 

m^^T% **Ts^mz** Is the name of the thing that you nant to know about* 
The *'nai»e*' argument to {^^? way aat be an expression* only a na«e« 

Mats' that while SE3 Is in operation a vast «iuantity of variables 
get defined* other than those that the procedure writer ^ay define* 
The list of predefined variables Is given at the ^n^ of this 

document* 



5.2*5 D£FF - TEST FOR OIFINED FUNCTION OR QPERATQR 

D£FF stands for OiFlned Function* and it returns a true value if 
the name given as Its argument Is any of the S^% function names or 
fflneiBonic operators* The general fora of OEFF 1st 

DEFFCnave) 

where "naie*' Is the function or operator name that you want to test 
for* The argument to OiFF lay afit be an expression* only a nawe* 
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5.0 Ftj^iCTIONS 

3a.b OPIR - TiST FOR OPiiATOR 



5,2.& OPt - TSST f=Ot OPEiATOR 

QPI^ tests for Its argusient to be an OPeRator or dellralter* The 
general f or p of OPi I s« 

OPR{strifi9.«xpresslofi) 

QPK reads the first token fro?» the string given by 
••strl ng«exprasslon»»# an<l# If the token Is a valid S£S token* then 
OPl^ returns TI^US If the token Is an operator at a deiitniter other 
than an operator. A list of the valid SES tokens Is given In the 
appendix on SiS syntax* 



61)460270 02 



5*7 
COC - SOFTiARE iNSINiiRINS SimiCBS 

22 HIY 84 
SSS ?focedurs Writer's Suld« i£Vt 2 

5*0 FUNCTIONS 

S.2.? \rAliXPR - CHiCK AI^D CCHPUTS gXi>R£SSIOH 

5»2»7 VALEX?t - CHECK AND CCIii>UTi SX^tSSSIOH 

Th« purpose of VALiXPR Is twofold. Firstly It Is Intended to 
VALIdate in S XPtess I onj to see If It £aa kl IJliiJiifill' and second! yt 
If the expression Is coaipytable* then VAliXPR eVALuates the 
iXPRess I on. The ralson d'etre of V ALEX PR Is that It Is possible to 
read data from a file I nto a string variable^ and then evaluate that 
string as an expression. The general format of VALiXPR Isi 

^ALSXPR (result.¥arlahle» input.strifig.yirl able) 

*ihere ••resul t.varl able** Is the nawe of a variable to receive the 
result of the expression specified by the string In the verlable of 
nasie ••Input^strl ng.var lab le*». VALSXPR returns a value which Is 
either the null string* which Indicates that the expression was 
valldf In which case the result of the expression Is Irs 
*'result«.¥tr l«ble«'# or else the function value Js a character string 
which Is the SES error fnessage Indicating what was wrong with the 
express Ion. 

As an exaiBple of VAIEX?R# we»!1 show another extract from the SES 
J1ATH procedure. The relevant pieces of the procedure are given 
here* with the Interesting line numbers In coinisents* 

\ ACCEPT IHTO«»strlngq«f PROI!PT««£curna9iqS««*-i'ILcurfim<|fi •• 1 * 



\ tolcsts<i « VAlEXFt lresuitq# strlngif} •• 2 •• 

\ IF toksts^i /« •• THSN "3 * 

\ HS6 tokstsq «t 4 w 
etc* 
etc. 
etc* 

lint 1 reads a string froi the user Into the string variable 

••strlngq*'. Further down In the procedure* after a lot of other belt 

and braces checking* the ¥At^XpR call at 1 1 ne 2 places the result of 

the expression evaluation in '•resultq" and returns as a function 

value a character string which Is checked at line 3 to see If It's 

the null string. If It Isn't* then the string In ••tokstsq" 
represents an error message which Is output to the user at line 4. 
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5,0 FUNCTIQHS 

5.3 STRING HAHOilMS 

The functions described belon alloii yoy to massage strings. The 
functions described are STRtiH* to find the l«nitii of a string* 
SUSSTt* to tx tract a part of a strlnf# SENSTI?# to regtntrtta a 
string* nn^ 6SNUPR and 6€HL0MR to raise or loner the case of 
alphabetic ctiaracters in a string. 



§.3.1 STRIEN - DETHRHINi LENGTH OF STRIMG 

STRLEN stands for STRIng lENgth# and It returns as a function 
yalusf the length of Its argument. The general form of $TRt£N 1st 

STRiENCstring.expresslon} 

nhare "str Ing^expressl on*' Is the character string of which you nant 
to find the length. For exaiplef 

\ gave « «DUIii FIONKING* 

• ■ 

\ size « STRUN Inane 4-4^ t A^p NUROtXNGM 

the STRLSN function call has as Its arguffltnt a string expression 
Mhlch should result In a string having the value 

•DVIii FIONKXNG AMD HURDLING* 

and after evaluation Is coiaplete* the variable "size** should contain 
the value 27. 
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5«0 FUNCTIONS 

f*3.a SUSSfi - EXTRACT SU8STRIN6 FROM CHARACTER STRING 

5. 3,2 SU8STR - iXTRACT SU9STRXNS FROM CHARACTER STRIMG 

SUaSTR* for SUB STRingt returns a part of a string froai a string 
viritl5tt« Th% general torisat of SUiSTR ist 

SUSSTRIstring.expf iiitogtr^dxr* Integsr^exp) 

where '•sxp" stands for ••expression"* Ths first paraiBeter of SUBSTR 
Is th« string from uhlch yoy mIsN to extract a substring* The 
second para?iseter is the character numtier (starting from one) at 
fitilch the substring Is to start* and the third parameter Is the 
auilitL ll£ Sh.MM.MS,tMt^ to be extracted froia the string* For exeaple* 

\ this « •HONiY FOR QtO RQ?i« 

\ other « SUBSTRfthls# lit 81 

After the substring function has been evaluated# the value of 
variable ••other*' Is '010 RG?i«» and STRLSHCother ) returns the value 

8* 



If you Ofiilt the third paraiseter froii the SUBSTR function* then It 
returns gtai character frow the position designated by the second 
parameter* 

If you oifilt the second jai third parameters* then the SUfiSTR 

function returns the latio sttiHil* This doesn't seei to be a lot 

of use* and It's a whole lot <iulcker to Just assign the string to 
another one* 

It is aal possible to omit the second parameter and code the 
third* If you do such an antisocial thing* you'll get the error 
message iXPiCTIKS HUHSER* 

If the starting Index parameter Is given as less than one* It Is 
(Internally) set to onel or If the starting index is given as 
greater' than the length of the string* the stertlng Index Is 
(Internally) set to the larger of the length of the string or one* 
The default starting Index Is one* 

If the length Is given as less than zero* it Is (Internally) set 
to zeroi or If the length Is given as greater than the maxliaun (80)* 
it Is (Internally) set to the maximum* The default length Is the 
length of the original string* 

Once the starting Index and length have been deteriulned* the 
requested number of characters Is returned as the function value 
(padding on the right i«lth spaces If neccessary)* 
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5.0 FUNCTIONS 

5.3,3 SgNSTl - iSSEMSRATE A STiING 

§•3.3 GENSTR - REGENERATE A SlRim 

The SEHSTR function Is «sad to restore a string. When a string 
vat ye Is coded for t paraaeter or In a string asslgnmentt the string 
Is Initially enclosed in single <iuote narkSf and a single quote niark 
within the string Is represented by a pair of quotes. For example* 

\ time « •Thlrtean Q*«Clock« 

wIM set the variable tiflie to the string shown, sihen SES processes 
this* the outer quotes are r^mo^eii* and pairs of quotes replaced by 
single ones. However^ if this string was to be passed on to the 
call statement of another SSS procedure, then It ^ust be restored to 
its or I il nil for«f so that eventually SES can crunch It again. So 
the function GENSTR# for GiNerate STRIng Is used. The general for^ 
of GSNSTR Is 

GiNSTRCstr ing.sxpressi on} 
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S.O FOHCTIOHS 

5.3«4 GENUf>ll - RAISE CASE 01= Al.PHA8fTIC$ 

5,3*4 GgNUPt - tAISi CASi OF All^HASiTICS 

GENUPt Is used to rtlst ttit cast of ilpti«b9tlo charaottrs In t 
string vari able* The fon»at of tht GENUPR function is 

GiNUPR f strin9.«xpr«sslonl 

wtiers "str Ing.expressl on*» Is th« string you want to proctss* An 
exampla of GEHUPR is stiown hera In this extract from the SiS systei 
library procedure I^ATH. The procedure reads a string from the Input 
file into a string variable •'stingq*^ 

\ IF GEHyf»RCstrin9<|l » »EN©« OR GSNUPRf str ingq) « «BYi« THEN 
\ STOP 

etc* 
etc* 

the NATH procedure ai Ions you to type END or 8YE to exit from tht 
proceduret and that Is ii^hat Is being tested for In the example 
above* Since the user aiay be logged in In ASCII mode^ lt*s possible 
for the Input to be In a wlxture of upper and loner cas«# so m% use 
GSHUPR to raise the case of the alphabetic characters* 



S.3.^ GSNIQWR - lOiER CASS OF AIPHA3ETICS 

GENLODR is used to io>«er the case of alphabetic characters in a 
string variable* The foraiat of the GENLOMR function Is 

GENIOUR (strlng.expresslon} 

where "strl ng_ express I on»« is the string you nant to process* 
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5.0 FUNCTIONS 

5.4 tmukcrm HAHQiim mmnms 

The functions In this category can b« usaci to inanlpulata ASCII 
characters which do not have a graphic representation* The 
functions are CHARRi? uhlch return the character represented by Its 
Integer arguipentl and INTREP which returns the Integer 
representation of Its character argufaent* 

5.4.1 CHAPIREP - CHAtACTil^ RePtESEHTATION 

This function returns as Its value# the ASCII character 
corresponding to Its argument. The general forsa of CHARREP 1st 

CHARRiP ( Integer.expresslonl 

where Tnteger^e repression*' must evaluate to an Integer between § 
(zero) and 255. For examplei CHARR£PC13(8n Is the ASCII character 
for "carriage return**. 

If the ♦•Integer^expresslon" has a value of 128* It will be 
translated to a colon. If the value is between 129 and 255* 9nf^ the 
value of C-IARR£P with this argument Is written to a file* It will be 
translated to 9t\ asterisk. 

5.4.2 IHTREP - INTiGgR REPRESENTAIOH Of CHARACTERS 

This function will return as Its value* the Integer 
representation of Its character argument. The general fori» of 
IHTREP ls« 

INTREP <string.exi»ressloiil 

where STRIENC strlng^expresslonl must be equal to 1 (one). For 

exaiRplei 

INTREP (•2«) 

has the value 50 or 62(8) or 3211611 and 

INTREP ICHARREPdOM 

has the value 10 II .e* the integer representation of the ASCII line 
feed character. 
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5.0 FUNCTIONS 

5.3 INTEGER EXPRESSION TO STRING CONVgPSION 

The functions described below ire for converting Integers to 
strings* The functions are OCT* DgC end HiK# Hhlch convert Integers 
to their OCTelf DiClisei end HEXedeolnitl representations 

respectively* None of the functions append any base designators* 
that's up to you and your particular appi I cation* 



S.5.1 OCT - INTESSR TO OCTAL STI^INS CONVERSION 

This function converts an Integer to its OCTal string 
representation* The for« of the function ls« 

OCT( integer.expfesslon} 

For eMtiaple* If the variable '•titus** has the value 793p then the 
asslgnwent stateiaent 

\ groan « OCT ftltus + 41 

results In the variable ••groan'* being set to the string •1437'> this 
being the octal representation of the declial Integer 799* 



f .5*2 DiC - INTEGER TO DECIHAL STRING CONVERSION 

This function converts an integer to Its DfClmal string 
representation* The forsi of the function ls« 

D£CC integer.expresslon) 

For «xii!!!ple# If the variable ••mortice*' has the value 497# then 
the assignment statement 

\ tenon » D£C Cnortlce * 291 

results In the variable ••tenon*' being set to the string «526«* 



5*3.3 HEX - INTEGER TO HEXAOECIHAL STRING CONVERSION 

This function converts an integer to Its HiXadeciiBal string 
representation* The form of the function ls« 

H€X( Integer.axprassiofi) 
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5.0 FUNCTIONS 

S.S,3 HiX - INTESii TO HeKA0iCI«4i STRING COHVgRSION 

For exasiple* If the vtr lable ••etster'* has the value 10138* then 
thi iss I indent st«t«»tnt 

\ bynny » HiX f master ♦ 13111 

results In the y«flable ••hunny*' being set to the string '2CS9*> this 
being the hexadecimal representation of the decimal Integer 11449* 

The HEX function aluays guarantees that there Is a iissilil digit 
at the start of the character strlnit since the syntax of 
hexadecl«al numbers i^lthln S£S requires that they start Mith a 
declisai difit* If the first character of the resultant string Is 
not a deeifnal digit* then SiS will f>iace a <zero) at the start of 
the str I ni# 
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5.0 FU^CTIOMS 

5,6 DATl^ CLOCK 4ND TII1£ PUNCTIONS 



5.6 i2iiix-iiyicii-AM2-iia£.£iJM(iiiiiES 



Thssa fynctlons return character strings as values • OATi returns 
the current date In a number of formats deter»lned by Its argywent* 
CLOCK returns the tlwe of day In various forisats^ and TIHE returns 
Information about Job and systew tine. 



5.6.1 DATS - CURRENT OATi FUNCTION 

DATE returns the current date In any one of a variety of foriiJats. 
The for?s of the OAT£ function calf ist 

DATi{for«atl 

where »*foriat*» may be specified in one of these ways J 

YMO returns the date In the for^n 76/09/08 <A0 1976* month of 

SepteiRber* day 8) 

DHY returns the date In the form ©8/09/76> the reverse of the 

May Just above. 

NOY returns the date In the foria 09/08/76 {American style - 

aonth first). 

DHONY returns the date in the form 8 SB? 76 

HONOf returns the date In the fonn SBP 8# 1976 

JULIAN returns the Julian d«te# 76E52 for September 8. 
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3»Q FUNCTIONS 

5.6.E CLOCK - TIME OF DAY FUNCTION 



P.6,E CLOCK - TI«g OF DAY FUNCTION 

The CLOCK function returns tlie ttme§ so that It Is possible to 
fit NOS to gl¥e you the time of day* The general for« of CLOCK Is 

CiOCKfforniat} 

nhare ••format" Is one of the folloMing* 

HUS returns Hours^ Minutes and Seconds* In the form X6i40tl9« 

AnPH returns the above tlwe In the form 4i40 ?H 
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5.0 FUNCTIONS 

S,6.3 TIME - SYSTEH AND 40B TIHE FUNCTION 



5.6.3 TIHi - SYSTe« AMD JOB TINE FUNCTION 

The TIMS function retyrns Inforwatlon about the syst€» tlaie. The 
general foriw of TlHi Is* 

TliiCforaiatl 

Hhers the "format'' paraweter is ont of the foMoHing. 
SYS alapstd tl«« In seconds since detdsttrt. 

elapsed tlise in iHilseconds since deadstart. 



SYSMS 

JOS 

JOBHS 



processing tl«e In seconds since the start of this jofe or 
tersninal sessi on 

processing time In ffliiilseconds since the start of this Job 
or termlnai session. 
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5.0 FUNCTIOHS 

3.7 TOKEN - RSAO S£S TQKSN FROH A STRIN9 

TOKEN wakes the Internal fexical scanner of the SiS processor 

avail able to the procedure writer. TOKEN reads the next S£S token 

Csyntactic ynit) frow a string variable. The calllni foriat of 
TOKEN I SI 

TOKEHf soyrce.strlng# token.string} 

TOKEN re^^s the next available SES token frow the variable 
••source^str lni»»# and places that token Into the variable 
••token.strlng*^. TOKEN returns as a value one of the folloMlngi 

o If the token read from the string Is a valid SES token* TOKiN 
returns a null Cea^pty) string to Indicate that all is Mill. 
iiat£ that in this case* the token Is iftitiiii fro^ 
*soyrce.str ing»»> so that you can place calls on TOKEN Into a 
I oop» and get successive tokens from the source string. 

o If the next token In the string Is not a valid SES token# 
TOKiN returns as a value a character string consisting of an 
error lessage indicating Mhat is urong mI th the token. 
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§•0 FtmCTIONS 

i,8 iX4l1l>l£ - TIHEf TOK£H AND EXPRSSSIOM iVALUATOR 



3 . 8 £Ui£Li-z-IIi£x-IM£iL.41iS-Iil£EESIi0M.£MAiMI0E 

The sxafflpi e be! on is taken froia an old! version of the SiS TIME 
procedure. TIM does not give you the tlwe to the exeot second* 
rather It gives you the tiise In *»ords to the nearest five minutes* 
For exeiaple If you type SBSmlinBf and the tiaie i«as ll»17i43» S£S 
Mouldl output the tlae In the forw 

♦ QUARTER ?A$T ELEVEN 

Pert of the procedure to accoAiplish this Isi 

seetO « • 0« •CLOCK' 

St ctl « »FIV£ PAST* 

sect 2 « «TEN PAST« 

sects « •QUARTER PAST* 

sect4 « •TWENTY PAST* 

sects « •TiEHTY FIVE PAST» 

sect6 « •HALF PAST« 

sectT « •TWENTY FIVE 

sects « « TWENTY TO • 

sect9 « » QUARTER T0« 

sectlO « •TEN TO^ 

sectll • »FIVi TO^ 



TO^ 



hi 

h2 

h3 

ii4 

h5 

hb 

h7 

h8 

h9 

hlO 

hll 

hl2 



HiE* 

TWO^ 
THREE • 
FOUR^ 
FIVE^ 
SIX^ 
SEVEN* 
EIGHT • 
NINS^ 

• TEN^ 

• ELEVEN* 

• TWELVE • 



tiktok « CLOCKCANPNI 

Junk « TOKEN! tiktok# hours) 

ninotes « SUBSTRftlktoky 2f 21 

hours « fhours4-f (33<»iiiinutes) AND f ii)inutes<«59)})//12 

hours « •^•♦♦tiours*! hiiurs • 01*12 

sector « Ciiiinutes/S'*>liilnutes//5>2I)//12 

sectnem « •sect^**^&sector&^ 



M 



I 

2 
3 

4 
3 

6 
7 
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S.O FUNCTIONS 

3*Q BXknPlB - TIHi# TOKEN AND EXPRESSION S¥AiUATQR 

This sifflpit ilttit prosodyrt IHystrit^s some of the lore 
esoteric uses of the expression evtluator* The numbers that appear 
in comment ^fuotes are for reference In the discussion that follows* 

The assignisent stiteaitnts at the beginning are just 
Initlatizind a bunch of strings ulilch form parts of the 
eventual output* 

Una 1 calls the CLOCK function Khich returns the time, let us 
suppose that the time is 4i20 p^« The variable "tlktok** ni 1 1 
contain the string *4i2§ PH*. 

line 2 calls the TOKEN function sihlch sets the value 4 into the 

variable "hours'^* The result of TOKEN is being placed In the 

variable '•Junk»»# because that's what It Is in this 
tppi I cat ion* 

line 3 uses lyBSTR to get the ^winutes** field out of ••tlktolc", He 
can't use TOKEN to get rid of the colon because colon Is not 
a valid SES token* So mm use SUiSTR to get the second and 
third characters of the string and place that in the variable 
••minutes"* 

line 4 Is lncrei»entlng the "hours" counter If "minutes" lies 
anywhere between 33 and 59 minutes past the hour# The 
boolean expression C<33<«minutesl AND C»lnutes<*59)) kIH 
evaluate to either TRUE or FALSE* which Is convertible to 1 
or 0* Then we assign the whole expression laodulo 12 to 
"hours"* 

line 5 Is setting "hours" to one of the "hxx" variables defined at 
the start* The expression has to generate the string *H12' 
If the value of "hours"* set In line 4f turned out zero 
because of the modulo operator* 

line 6 computes the "sector"* that ls# the five minute slot on the 
face of the dial* The expression will set the sector to 
"fflinutes"/5» 8ut the expression also says that If It's 
3*4*5*6 or 7 minutes past the hour* then we'll set it to five 
past the hour 

line 7 builds a name "sectxx"* The nawes "hxx" and "sectxx" can be 
accessed by substituting* For example* If the time Is 
4143 pm* then "hours" will eventually contain the string 
•H5'* and "sectnam" will contain the string 'SiCT9'* Then 
the substitution ShoursS will give the string «f=lV£»* Mnti 
SsectnamS will give the string 'QUARTSR TO'* 
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6,0 i£i.iia£aiiaiEI 



Irt this section i«»M I look at til tlit SiS directiy^s that «rf not 
directly concerned mith processing of parameters froai the control 
stiteistnt* Again tieM I provide a brief summary of the available 
commands* and go Into iiiore detail later on* The commands ni'rt 
going to discuss In this section are. 



Conditional Processing 



Iterative Processing 



Other Control Stateiaents 



Alternate File Creation 



File Indus Ion 



User Interaction 



The IF-ORIF-ilSS-IFiND commands provide 
a means to process the procedure 
conditional ly* 



HHIlE-HHILiND provl de 
repeating a group of 
so^e condition remains 



a means of 
statements Mhl It 
true* 



CYCLE provides the aeans to go to the 
beginning of a WHILE loop* EXIT 
teriai nates its Imfliedi ately enclosing 
structure* STOP terminates procedure 
processing and starts execution of the 
generated control statement f I le# nhile 
ABORT terminates procedure processing 
and returns control to the user* 



ROUT provides a 
text from the body 
designated file* 



capability to direct 
of a procedure to a 



INCLUDE can Insert Into the body of the 
procedure* the text of any other 
designated file* 

The ^SG command can send messages to 
any designated file* The ACCEPT 

command can read I ines from any 
designated file* These tMO comisands 
are most useful for making interactive 
procedures Mhich may talk to the user* 
DAYFNSG alloi«s messages to be uritten 
to the job dayfile during procedure 
process! ng* 
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PRQCiSSIHS 



6 . 1 !£.= J3II£^r-ILIi.=-i££im-£SiaiIiatiiL-.Eail£Il{iIMIi 

The SSS processor i>rovldes a mmtho^ uNareby i block of stateaients 
can be processed conditionally* The general forw of the complete IF 
gang Is laid oyt IselOM* 



•• One of tiiastt •• 

•• There way be zero to * 



\ IF so«e condition THiM 
blah 
blah 
\ OR IF aiiother condition THSN 
mtiiibte 
fiunble 
\ ORIF yet another condition THEN ** safiy ORIF statenents ** 

rhybarb 
rhybarb 
\ gtSE 

yakk 

yakkity yakk yakk 
\ IFgHO 



•• zero or one of tiiese * 
•• Tereinates tlie lot * 



To illustrate the use of IF> Me'll look at the last fe** lines of 
the TI^E procedure that nas shown previous ly« Rtflieaiber that we had 
the variabits ••sector"* ••sectnaffl'* mnii ••hours" set up. The siati I 
piece of conditional code In TIHi Is so that the tlnie aiMays cciRes 
out In the forro of SOHiTHINO TO/PAST SOHSTIHE# fixatfii »ihen it is the 
hour Itself* In which case SOUiTIHE O'CLOCK will be output. The 
piece of code that does this Is* 



IF sector 
iastwrd 

EtSi 

Iastwrd 

IFiNO 



« THEN 

* ChoursS ** fiseotnanC 

« fiseotnaiBS *-*- dhoursS 



ClestMfdi; 



As you can see from the code* the two halves of the tliae string 
are arranged In a different order depending whether it's the hour or 
not. 
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6«0 SES DIRECTIVES 

6»a iHIi£ - WHILiNO RiPETITIVS COOi l»RQCi$SINS 

The ¥HIIE co«iw«nd ailoMs « stctlon of cods to be proosssed ovtr 
and o^er as long as a condition Is trye. The general form of the 
UHliE co!naianil 1st 

\ UlillE condition Is trye DO 
bunches of 

procedure stettoiints 
\ HHIliHD 
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6»0 SfS OIRiCTIViS 
6,3 COMTtOL STATSHENTS 



^.3 amEOl-SIMiiliMIi 



This station describes directives In addition to IF and iHIlf 
that control Mhich statements mIH foe processed by SES« these 
directives are* STOP# A80RT# EXITf and CYCLE* 



6*3«1 STOP - STOP PROCEDURE PROCESSING 

THe STOP directive Is used to pre?»aturtly terminate processing of 
the procedure. Its effect Is e^iulvalent to surrounding the part of 
the procedure that fo Honed It with an IF/IFEND for nhlch the 
condition Is FALSE* The general foria of the STOP directive Is? 

\ STOP C strlng.expressloii 3 

nhere string.expresslof) specifies an optional message to be sent to 
the dayf I le* 
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6.3,2 ASOI^T - ASOiT PROCiDUI^E PROCSSSIHG 



6.3.2 ASOtT - ASQtT ^tOCEDURE PIIOCiSSINS 

The A8QRT dlrectlvt Is similar to ttis STQ? directive with th« 
excsptio?^ that the SIS orogreiB will abort Instead of execyting the 
gifierated prooedyre« It oan b% usad# for Instanosf when paraiaeters 
to a procedure »4ere not specified correctly* The general for« of 
the A83RT directive 1st 

\ ABORT C strlni.expression 3 
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6.0 SES DIEECTIViS 

&,3»3 SXIT - SXIT STRUCTURi 



6.3.3 SKIT - iKIT STt^UCTURE 

Ttie EXIT directive Is ysed to conditionally or yncondl tlonally 
exit fro^ the •• I meecJ lately containing structure**. This ••structure*' 
laay h% an IF ••statefflent'^f HHIIE ^statement*** or INClUDEd procedure 
••segment*". If the EXIT directive is not contained Hithin any of 
these "structures*** It acts like a conditional or unconditional STOP 
directive. The general for^ of the EXIT directive ls« 

\ EXIT C MHEN boof ean.ex^r ess iofi 3 

The exit Is taken If the WHEN boolean.expresslon Is oipltted or If 
It Is given and evaluates to TRUS. For example^ the following are 
eqyivtientt 



IF condl THEH 
stuf and Jytik 1 
EXIT WHEN eon<i2 
stuf and Junk Z 

IFEMO 



IF condl THiK 
stuf and Junk \ 
IF NOT cond2 THEN 
stuf and Junii Z 
IFENO 

IFENO 
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6*0 SES OIl^gCTIVES 

6.3.4 CYCLE - NEXT ITil^ATION OF yHlli 



6.3.4 CYCLE - NEXT ITERATION OF MHIIE 

Tlia CYCLE directive can be used to proceed to the next Iterttlon 
of the Innermost MHllB ••statei^ent* that contains the CYCLE directive 
either coni Itlonel ly or unconditionally. The general forni of the 
CYCLE directive I si 

\ CYCLE t WHEN booleen.exiiression 1 

The Cfcle Is taken If the HHEH booiean^exipresslon is omitted or 
If It Is given end evtlyates to TRUE. For example* the follOMing 
are equlvalenti 



\ WHILE eondl DO 

styf and Junk 1 

\ CYCLE mm oondZ 
stuf aind Junk Z 

\ UHILEND 



MHILi oondl 00 
stuf and Junk 1 
IF NOT cond2 THEN 
stuf anil Junk 2 
XFiND 

HHILiNO 
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6.4 ROUT - iOUTEND ROUT TiXT TO A flAHSD FliE 



6.4 gQyi«=.SQUIi^ll-E0yi.Ii]SI-ICl-4«i4iii;i«£ILi 



ROUT 



proctdyra to 



ability to divert text frow ultlilfi 
a specified fife. Tha forw of the 



the body of 
ROUT cofiwand 



\ RO«T CFA-1 flle^ntiie 
text 
to 
be 

routed to another file 
\ ROUTEND CNQgOR«3 Cf I le.fieiiiel 

All the text within the ROUT - RQUTSHO liracket Is sent to the 
na^ed file* uitU thSi S,LQ^Ls,Ql that any directive lines iilthln the 
block are processed as they are encountered. 



'•f 1 1 a^naiai 
optional FA 
to be output 
lo^er case 
P tr aw et er I s 



*• Is the file to Mhlch the text Is to be routed. The 
keyword on the ROUT coiai«and specifies that the text Is 
In Full ASCII* that Is* blank lines are output and 
letters are not folded to upper case. If the FA 
not coded* then the output text has lower case letters 



folded to upper case* and blank lines are discarded on output. 

When the ROUTiNO coiiisand Is encountered* SiS norwally writes an 
end of record on the file at that point. If the optional NO€OR 
parameter Is coded on the ROUTENO* then the end of record Is not 
written. This provides a useful facility to ROUT wany sections of 
text to the same file In a disjointed fashion. 

The «f II e.nama" on the ROUTENO Is optional. Its use Is 
encouraged* since It makes the procedure easier to read* imimc* If 
the name on the ROUTENO doesn't match the name of the file at the 
top of the output control stack* then the RQUTEND directive Is 
I gnored. 

It Is possible to nest ROUT • ROUTENO blocks within other ROUT - 
ROUTENO blocks* as long as the Inner ROUT»s don*t reference the s^me 
filename as the other ROUT's* If a ROUT directive does try to 
reference a file which is already being RQUT*ed to* then that ROUT 
directive Is Ignored. 

Routing Is particularly useful for creating a file* within a 
procedure* which Is to foe submitted as a batch Job. For examplet 
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b*Q SSS PIRgCTIViS 

6,4 ROUT - ROUTEHO ROUT TEXT TO k NAMED FILi 

$$uaHirujoi>fit«s#si 

SRETUR^f&Jobf lleS} 

♦ JOB &prdcfi«ii& SU8M2TTED 

\ ROUT Jolifil« 

SuserS#T2llllll*i ♦♦♦ &prooii««& **♦ 
$USSR{Sus«rS#Ip«ssifor&} 
$C}IARGi{&chari«S»Spfoj8GtSI 
Job 

control 

sttttntnts 
\ HOtlTEND Jobfila 

coyld be used by a procedure to SUSHIT « bttct? Job« 

As a cofiyentlon# procedures that ROUT stuff to flies liave the 

RQUT'td ttxt blooks at the end of tlie procedure* Ttils nsakes the 

fflalu body of the procedure easier to rmtt^f Mithout It fceint 
cluttered yp *ilth all the ROUT*ed isateriat* 
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6.0 S£S DltiSflVSS 

6.S INCLUDE - SWITCH IHPUT TO A NANiD FILE 

INCIUOS al laws yoy to read text fmrn a file other than ttie toody 
of the current procedure file. The effect Is as If the INClUC£*d 
file was physically inserted In the procedure file hody at the point 
of the INCLUDE cosiRiand, The aost prlaltlve forsi of INCLUOS 1st 

\ INCLUDE F«fll««fi«a« C#UII«user.nane3 

**f M e.naiat«» Is the na»e of the file to be INCLUDE* d* and the 
(optlonail '•user.naiae'" specifies the catalog Mhere the file Is to be 
found. If the file Is already local to the running Job# then the 
local copy of the file Is used* 

The general* and probably wore useful forw of IHCLUDg looks like 
thisi 

\ IMCLUDl F»fi le.naflie# t«tocal«f Itiy LPFN^I ibrary.name# Ull«user 

In this format* ""f I1t.na»e»* Is still the naaie of the flic to be 
INCLUD£«d# but now It refers to a procedure record In a ?LI8 library 
of name *• 1 1 brary.na^e*' In the catalog of the user given by ••user**. 
••local.llb" Is the naaie of the LFN or Local File Hawe by which the 
library Is known when SiS ACQUIRi's the library* It Is always* 
always* but always good practice to use a local file ntme for the 
library because INCLUDS's may be nested within INCLUOE's* and as 
long as the local file names are different* HQS Is quite happy to 
let you read from different positions of the same file. 

To Illustrate how INCLUDE works* we'll show a section froi the 
SIS RgPHOD procedure. This same INCLUDE file Is used by all SSS 
procedures which update libraries* 



\ 


re writ! 


« •SIntbasefi* 


\ 


rewrlto 


« •nbS* 


\ 


INCLUDE 


»R£IIRIT£«f L-UNIQU£INAHilf 



LFFN«S£SLNAN« UH«$£SUNAN 

The procedure section shown above sets the Input and output file 
naaies for REWRITi (••rewrltl"* and ••rewrlto*")* and then lNCLUDS»s the 
REWRITE procedure* In actual fact* RSVIRITi is a stand alone 
procedure In Its own right* and It Is possible to simply use REiRITE 
as a standard SES procedure* such as* 

S£S*R£lfRIT£ I»&lntbase&* 0«£nb& 

yny didn't we do It that way? Well the wain reason is that the 
complete REPHOD procedure run Cfrosa procedure call to finishing the 
Job) goes faster by INCLUDMng the REMRITi procedure* If we'd 
written SES. REWRITE* then during the processing of REPHOD* we'dve 
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6,0 3iS OIRSCTIVSS 

6»5 INCiUOi - SilTCH IHPm TO A NA?!gO Fllg 



hit the procedurt callt setrclied the procedyre iibrarlts^ crtcked 
ths control sttttmant* etc* etc* The whole thing goes a lot faster 
for INClUPMfig the Inner procedure. 
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6,0 SES DIReCTIVSS 

6.6 USER IHTSRFACE 0IR£CTI¥£S 



6.6 UliES«i!il£E£iC£«aiIiQIIMI 

The directives In this group can be used to ••talk" to the user of 
« procsdyre and to let the user '•talk*' beck. The directives are* 

DAYFUSS* m^f and ACCEPT. 



6.6.1 OAYF«ISG - SEND USSSASi TO OAYFILi 

This directive can be used to place a message In the user's 
dayfi le. The general fornn of the OAYFNSS directive Isi 

\ DAYFHS6 strln9.expr«sslon 

Mhere string.expresslon defines the message to be sent. 
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6»0 SiS OIRSCTIViS 

6.6.2 ^SG - WRITE HESSASE TC FILE 



6.6.2 NSG - «RITi HESSAGi TO fllB 

This directly* Is used to write fuessages to t specified flls. 
Its general f orw is« 

\ use N«stf Ing.txpresslofi C TO>file«na«e 3 

Mhtrt striiiii.exprttsslofi defines the inessage to be Mrltten and 
flle.jne«t specifies the naiie of the flla to receive the message. 

The default for flie^naMt Is OUTPUT. Jjfliflt that if file^nane Is 

oinitted ^nd file OUTPUT Is not assigned to a termlnaU the message 
is oal Kir It ten. 
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6#6.3 ACCEPT - READ 1 lINi FROH A FliS 

6*6.3 ACCENT - mm 1 IIH£ FROH A FILS 

Ths ACCEPT <lir8ctiyt reads 1 line froia a specified file Into a 
specif I ad variable^ optional ttf preoeaillnii tlie read request ultti a 
promptlni inessate to another file* The general forss of ttie ACCEPT 
directive 1st 

\ ACCiPT INTO«var.iia«e £FR0M«lnfli«1 CPR0HPT««tsg1 CT0«outfll«1 

where yar^iiafie Is the nanse of the varlahle Hhlch will receive the 
Una f r oas file inflie* The PRGNPT and TO parasneters are equivalent 
to the H and TO paraaieters* respecti vely# of the ?ISG directive (see 
above)* The default for Inflle Is INPUT. 

Mais* all parameters on directives are expressions! therefore It 
1 3 ttcsmilil recoffl»ended that paraiteters uhlch are to be namest be 
given as strings. For example! 

\ ACCEPT INTO««varl» PROMPT-nsgl 

Is generally much safer thani 

\ ACCEPT INTO«varl PROHPT-msgl 

since In the second casey If varl already has a valuet that value 
win be used for the INTO parameter* 
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6*C SES OIRiCTIViS 

6»7 ScTRFt - PtOCSDURg FIELD LENGTH CONTROL 



6 •? IEia£U::-£Ii(I£ayS£-£I£ia-L£i£Ii-aatiIEOlk 



ytisn a i>focedur« Is running* It 
central mBmory field length to 
better response tlwe for all users 
swap time* HoKever* It Is also 

field length it proceilure end to Mhat it i«as Mhen the procedyre 
called* The SETRFL directive provides the ahMlty to do this* 
format of the SETRFL directive ls« 



is if Mays good prttlce to keep 

a inlnimuffi* This helps to provide 

C Including youD* hy reducing 

nice touch to restore the user's 

Mas 
The 



\ SiTRFL mlntm^mmnl 

the action of SETRFL Is best explained In this set of SES code* 

\ IF FL < fliin OR FL > sex THEN 

SRFiCCiiliiS) 

\ RFLLINi • •SRFLISFLSM 

\ ELSE 

\ RFLLINS « • • 

\ IFEHO 



In other words* If the current user's field length* given by the 
predefined variable FL is outside the limits specified by "flRln** and 
**mMK^p then >ie generate a control statement to the control stateiRent 



mln^ 



file to RFL to 

••RFLLINi« to the 

field length. 

the end of the procedure* The 

optional f and If onltted* is 

$RFL statement Is generated If 

specified by "roln**. 



and iiie 



then set the predefined variable 

control stiteraent needed to restore the user's 

Typically* m% Mould then place an &RFLLIHiS line at 

♦•max* part of the SiTRFL directive Is 

the same as ••mln*'. In that case* the 

current 



the 



FL Is une<iual to that 
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7*0 E4iM£I^-ll££miI£ai-iilL££aiI£iiIMI5 

Horn at last tie oomm to tha rsai purpose of SgS# that is# raiding 
paraiseters frojB the SiS control statemeiit an<3 substituting thew Into 
ttie CCL sttteasent file* 

The topics discussed In this section should now be filrly 
straightforward. They are basically concerned with parameter 

definition vie the PARH-PARHEND dl recti ves^ and the various 
facilities for accessing parameter attributes and values* 
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T.o pmrnwrm oiFiNiTioN km processing 

7,1 PAm - l>Af?liENO OSFINIHG PARAHSTSR LISTS 

Hhtn w% di scussdd the general I tyout of a procedure In the 
section on basic SES processlngf mm saw that a procedure may have 
zero to ffiany PA^M directives* ter^slnated with a PAI^HEND directive* 

?kRn stands for PARaHeter* and It Is the basic SiS directive 
Mhloh defines what a procedure parameter fnay took like* PARH allows 
you to define the following things about a paraaiettr* 

o The keyword or keywords used to define that parameter* 

o nuaiber of values which that parameter ib ay be given when It Is 

coded • 

o whether the parameter Is required to be specified In the 
procedure call 11 ne* 

the allowed type of the parameter* 

The general forai of the PARM directive I si 

\ PARH KEY'keywordSf CNVAlS-xxJ^ Ctypel £R£Q3 CRN63 

KiY Identifies the keyword or keywords that «Jay be used to 

specify this paraineter when coding it on the control 
statenient* 

NVALS specifies the iplnlium and mnximam Nuraber of VALueS that may 

be coded for this parameter* Default Is I (one)* 

typt Identifies the allowed type of the paraineter* "typa** may 

be coded as one of the foliowlngt 

MAH specifies that the parameter inijt be a NAHe* That Ist 

a one to s%ytn character al phanumer I c string starting 
with a letter* 

NUn specifies that the parameter ly&t be a HUNber» that 

tS9 a pure nunerlc string^ with an optional feast* 

STR specifies that the parameter ly^t b^ m STRIng* 

FGN designates that the parameter may be a Forei€N text 

parameter* This type of parameter has the forflRat of 
an expression (or parameter specif I cation) Uut it Is 
Q2t JlJliiaifiXl when encountered^ rather It Is ''passed 
on** essentially uncodified* Foreign text paramtters 
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?,o pmAnEvm oefiiiition and process ihs 

7»1 PA^n - PARHEHD DEFINING fARhmtm LISTS 



tr« noraitlly only ys«d when vtl«s syfe-llsts trt 
recjulred for a p«ftfflietsr> and It then becoies the 
responsibility of the procedure to check the vaiidity 
of the parameter* Details of the forwat land 
restrictions) of foreign text valaes cm be found In 
the suhsectlon ••Foreign Text** In the appendix on 
syntax* 

Ria Is a keyitord that specifies that the peraaieter Is i%£Qulred 

to be stated iihen calling the procedure* 

RN6 states that the paraiseter ffiiay b% coded ts a RaH0e* That 

ls# the paraoreter may be coded In the forsi of x»*y# for 
example cois»2««75 

The basis of ail this definition Is that SiS checks the 
paraineters given on the control statement to see If they are 
actual ty as yoy said they shoyld be«^ If they are not* then SES 
outputs an error message at the tlsie of processing the procedure* 
saving a aiasslve aiRoynt of playing about In the body of the 
procedure Itself* 

Malt that on an $B$ procedure callj a value can be omitted froia a 
parameter's value list auLt if that parameter was Qfii declared with 
an explicit tiai specifier on Its ?Ann directive* 
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T#o hmkmim definition aho prqcissins 

7. a PARAWETlt ATTilBUT£ TESTING 



7.2 ^iliilllE-MIEIiyii-IESIIifi 

S£S prorldts t nuf«b«r of fynotlons to t«st the attrilbytss of 
par aintt ers as defined In the PARM directives* A short sy««ary of 
the fynctions Is provided heloM^ and isore detailed expianttlons 

fOllOM* 

In the discyssions that foiioM# iie use the convention that 
••paraweter^naaie" means laj of the key*«ords used to specify a 
particular paraiaeter* and ••l««yiiord«na^e»» to lean a specific keyword 
oyt of the set of possible keyttords for a paraweter* For exateple^ 
If >*e'd coded the following ?k^n directive* 

\ PARH K£Y « ««r»f •?«# Mnpat** •fll««l etc, 

then "paraieter«nai»e»« means ^X* or *f* or • Input' or »fHe«* whereas 
••keyMrord.nKBe'* weans only ©nt of those* say 'Input** 



OEFPCparimeter^name) 
OEFKC keyiior d.name) 
K EYVAL C p ar aiiet er.na«e ) 
VCNTCparaaieter^naBie) 



returns a true value If the parameter 
specified by **paraffieter.nafl!e** Mas actually 
coded on the control statement* 

returns a true value If the keyiiord 
specified by ••keyword.name'* nas actually 
coded Qn the control statement* 

returns the keynord that nas actually used 
to define the parameter specified by 
••parameter .name"* 

returns the number of values actually coded 
for the parameter specified by 

••paraweter^name*** VCNT Is described In 
detail In the subsection on *>Acoes$lnsi 
Parameter Values'** 
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7.2.1 D£FP - TEST FOR THE PRiSEHCE OF k Pmm^im 

7.2.1 DgFP - TEST FOR THE PRiSEUCE OF A PARAH£Tei 

Th« OiFP fyrsctlon al Ioms you to test If a parsmatar nas actually 
dtflntd. OgFF stands for DEFInad Parawater. Th« genarti foris of 
OSFP ls« 

DEFP( par am«t«r^fi««« I 

Mliart "p ar iPtt«f«ntme* Is any of the ktynor ds for the para^etar In 
question. For #xai»pl a# thars are laany of the S£S I library procedures 
(or flltersif that tal<e one Input file and produce one output file. 
These procedures are geared up so that If you only specify one 
filenane# then when the procedure Is finished It will i«rlte the 
output file over the Input file. The piece of %t% procedure code 
that would achieve this Is* 

\ IF NOT OEFPCol THEN 
\ o « •&!&» 

\ IFEND 

Later on in the procedyre* we would use the fact that the »M %n4 
«o* paremeters %fe either e<iual to each other or not. 

HatiS that If ••parameter.naaie'' Is not the n^m% of a paraineter to 
the procedure^ this function will return FALSE as Its value. 
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7.2.2 DiFK - TEST FOR PiSSENCi OF $f»iCIFI€ KEYHORI) 

The OEFK function stands for DiFlnad Ksy*iortf^ and Its function In 
life Is to test nhetlier* Mtien a parameter was codedf a specific 
kay word mis used to define that paranitter. The general foriw of I3EFK 
1st 

DEFiC(keyiioni.iiaiiel 

where ••keyword.name** Is the keyword for which we want to test. To 
Illustrate the use of DiFK# we'll show a short extract froi the 
FORHAT procedure. Host of the S£S systen library procedures which 
can run as batch jobs contain this particular section of code. The 
idea of the bit of code Is to dump a dayflle to the user's catalog 
If there were any errors In the Job. The dayflle paraiseter Is 
defined via the following PAUH directive. 

\ Pmn K£Y«l«nodayf«f •dayfli«»f*dfM HVALS»0««1 KAfI 

the 'nodayf keyword specifies that no dayflle Is re*?ulred at all* 
In any event. 

In the FORHAT Job# the following piece of $BS code «ay be found 
to process the parameter. 

\ IF NOT OEFKtnodtyfl TH€N 

EXIT 

SOAYFILifSdeyflitti;! 

$R£FLAC£Ud«yfll«&l 

\ IFEHD 

To explain how this works» If the user coded nodmyf as an option 
on the procedure call* then the test at the IF statement would fall* 
and none of the statements between the IF and the IFiND would be 
processed or output to the control statement file. However If the 
user coded df «soae.f i le* or dayf ile«so)iie«f lie* or omitted the 
parameter altogether* then the test would succeed* and the iXIT* 
SOAYFILE and SREFIACE control statements would be processed to refer 
to whatever '•some.f I i e** happened to be* or would refer to "DAYFILE*' 
if the parameter had not been coded. 

Slatft that If "kiyword^name** Is not the name of a keyword to the 
procedure* this function will return FALSE as Its value. 
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7.2.3 KSYVAi - ACCESS ACTUAL KiYWQRO OF l>ARAHgTER 

KEYVAL stands for KSYnord VALue^ ana Its function Is to let you 
know ^tiioli keynord Mas actueily us ad nil en spsclfylni a parameter. 
The general forp of KiYVAL Ist 

KiYVALfpafanotftr.fiaael 

where ♦•piira«eter^na«e*« Is aB^ of the keywords that can be used to 

specify the particular parameter that you are Interested In. The 

KEYVAL function returns as a string* the keyword that nas actually 
used Hhen the parameter Mas coded. 

If no keyword nas used to define the paraaieter> that Ist the 
paraieter i*as specified positional I y# then KEYVAL returns the null 
str Ing. 

Maifi that If '•paraflseter«na?«e»» Is not the naae of a para^jeter to 
the procedure* then this function returns the null string is Its 
value. 
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7«3 ACCSSSINS f>ARJk«£TSR VAIUSS 



7*3 4i:!:£SSIM«£M4MI£E,l^Lyii 

There are essential 1 3r two ways of getting at tlie value of a 
parameter* by subst ItutI oPt and by using one of the functions 
described In the foliotiing subsections* 

It Is not possible to directly reference a partweter value In an 
express I on» rather* one of the lethods described above «ust be use4m 
This is to tllon a keyword for a procedure to have the saiae nnme asf 
for instance* one of the predefined variables* and yet within the 
procedure* to access both the parameter and the variable* 

The substitution wechanls^ of S^S always first checks for the 
naiae as being the naae of a parameter* ^n6 only If this check falls 
iio%s It look for a variable to substitute* This priority is also 
followed when assignment takes place* either explicitly via the 
assignment stattient* or Itnpllctly via functions such as TOKEN and 
VALEXPR* discussed previously* 

Substituting a para»eter can be represented by the following S£S 
codet 

\ duiiiiiif « VALS(p«ra«# 1» LOVI 

where ••dummy'' is som^ teii^porary variable* In other words* the LOw 
Value* of value 1 for paraifiieter '•paraai'* is substituted* You would 
actually code such a substitution ast 



fiparanS — — « 



The functions described In the following subsections iiay also be 
applied to variables with string values (In addition to paraneters)* 
When used for this purpose the string value must be In the format of 
a value list (see the Appendix on Syntax for a detailed description 
of the format of a value list)* In particular* the interpretation 
of the string Is that It contains a value list for a ••paraiaeter** 
defined by« 

\ PARH NyALS«0««iiaxvals* FGN# RN6 

The descriptions of the functions* VCHT* VAIS* and GENLIST Khich 
follow only discuss their use with parameters in order to keep the 
description as slfiiple as possible* however* the first argument to 
all these functions may also be the nime of a variable whose value 
has the properties discussed above* 
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7.3.1 VCNT - NUHS£R OF VAIUES OF A l>ARAi1ST£i 

VCNT stands for Value CoyNT# and Its fwiictlon Is to deteriRliie the 
number of y at ties coded for a ptraipeter. The foriB of VCHT Is* 

VCNTC{>«fanet«r.fia«e} 

i*hare '•par aweter.naae** Is the nawt of the para?»eter for which you 
want tha v«lu« oount. 

For exaisplaf the SES ilPEHEM procedure has one of Its parameters 
defined via the foMoMlng PARH directive! 

\ l>ARN K£Y « *text* NVALS « l.«ni«xvals NAN 

so that It's possible for the user to code a call on MXPiiEfl which 
looks something like thist 

$SS«IIIPSMgN text'Cglygf gro9»t>«ric»cla9l 

so that within the MIPgflEH procedure^ the asslgninent statement 

\ vaacouii * VCNT I text! 

would set the variable •»iBe«?coun" to 4 In this case. The way that 
this is actually used Is In a yHILS loop# something along ttie tines 
of* 

\ index « 1 

\ WHILE Index <« VCNT Itextl DO 
blah 
blah 
blah 
\ Index « Index -f 1 
\ UHILEND 
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?.3.2 VAIS - iXTRACT PARA«iTiR VAiUi FROH A VALUE LIST 



7,3*2 VALS - EXTRACT PAI^AiliTil? VALOi FROff A VAIUS LIST 

VAiS Is prot5ably aisoyt the isost usefyl function available to the 
nrltar of SES proc«dyrts» VAIS starids for VALyeS^ and Its function 
is to extract a value from a list of values uhlcN lay be coded for a 
specific paraneter. The general forai of the VAIS function Is* 

VAI.Stparaaieter.nai!ie» index» tOy/HIVl 

Mtiere ••par««eter^na?»e»» Is the partnettr for which the value Is to fee 
extracted* ••Index*' Is an Integer expression which determines uhlch 
value out of the value list Is to he extracted* The fast parameter 
Is lOV which stands for iOw Valuer <ir HIV which stands for HI§h 
Value* This Indicates whether the low or the high side of a range 
Is to be extracted* As an examplef the COLS parameter of the 
COPYACR procedure can be coded as 

ClltS*xx»«yy 

where •*xx*' Is the low side of the range and ••yy" Is the high side of 
the range* The appropriate VALS functions Is something like the 
followlngs 

\ ioside « VALS(cols> 1# LDVI 
\ hislde » VALSfCOLSf U HIVl 

If the LOV or HIV paraaieter Is omitted* then VALS takes the LOV 
as default* If the "Index" parameter is oultted^ then VALS uses 1 
as default* So for Instance the VALS functloni 

VALS Cparaaetaf^naaift} 

Is equivalent to the VALS function* 

VALS (paraiaeter^naiiey !» LOVI 

If the "Index** parameter Is given as less than or equal to 2^fo» 
or greater than the laaxluiuiR values allowed for any paraweter C50) 
the error message VALlii OUT QF RAN6i Is giveni or If "Index** Is 
greater than the actual number of values coded for the parameter^ 
the function returns an "^aiJfttlaftil'' value* 

If HIV was specified on the call to VALS but the value was not 
coded as a range <or was not allowed to have a range) the 
corresponding LOw Value Is returned* 
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T«o pikRknBrm definition and pi^ocissiHG 

7.3a SiNLIST - €£NiRITf LIST Ff^QH PARAHiTER LIST 

7*3.3 SENIIST - SiHERATi LIST FWN PARAHETgR LIST 

The GENLIST function* for GENerat® LIST* alioKS you to l>ulld up t 
string fr08! « p«rt«et«r list supplftd to tfit S£S procedure* The 
general forw of GENLIST ls« 

GiNLI$TCparii.A«««# GQunp llns.lliij Max.ooun* f«iig«.s«p# vatue.sepi 

This looks complicated but since most of the trguflients can be 
oiltted# It's actual ty a lot simpler ttian It looks. The meaning of 
the various parataeters of GENLIST arat 

parm.name Is the name of the parameter that you Mant to access. 

coun Is an Index Mhlch Indicates at Mhlch value In the list 

you Hant to start accessing. If "coun** Is undefined 
when GENLIST Is Invokedf then GENLIST defines It for 
you* and Initializes It to one CD. When GENLIST has 
processed the list* ••coun*» will be set to one greater 
than the last value processed In the list. If "coun" 
has a value (iihen GENLIST Is Invoked) Mhlch Is less 
thin one or greater than **aiax^coun"# the error raessage 
VALUE OUT OF RANGE Is given. 

line.lln Is the ^axlmuia number of characters you tiant to uo Ih 

the generated list. The default Is 80. 

^ax^coun Is the highest Index that GiNLIST Is to process up to. 

The default Is the actual number of values coded for 
the paraiiieter. 

range.sep Is the character used to separate the low side and 

high side of a ranga value. If "range.sep" Is 
omitted* it defaults to the SES range separator (..I 

value .sep Is the character used to separate values In the list. 

If "val ue^sep" is omitted* It defaults to coaflia (*l 

To illustrate hoM GiNLIST Morlcs* *ieMI look at a section of the 
St^S yilPBnEn procedure. One of WIPiflEN's parameters Is defined as 
fol lo**s. 

\ PARN KEY « ftext* NVALS « l..«axvais HAtt RMG 

The \ll?EHBi^ procedure Invokes LI8SDIT to actually delete the 
member records from the library. It Is possible to give LIBEDIT a 
directive of the form. 
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7.0 Pl^t4f1£TlR DSFINITION AND PROCESSING 

7.3.3 GSNilST - GENERATi LIST FtOM PARAHETER LIST 

♦OEtSTE T£XT/GRA8fHGL0#HiRE-THEflE»IUHK-YUKK etc «tc 

Such a deletlofi coulil be coded on the SiS control statement In the 
fol lotting mnnnmrt 

SMS.UlPBnm L«HYLIB TEXT«(6RAd9H0L0»HiRi.,THiRE»JimK««YUKK} 

Th« fd Honing section of code Is taken from the ilFIHEM 
procidurQ# stioMlng ho*i GENLIST is used to generate the LI8E0IT 
directives. 

\ aieiityps « • ITSXT#Of>LC#0PUR£U0VL#A»S#PPU#PI>#COS)» *• i •• 

\ dirflle « UNIdUE CMAIIi) *" 2 *• 

• 

\ ROUT dirflle •• 3 •• 

\ typcoun * I •• 4 tt 

\ ilHILE typeoun <» 9 DO « 5 •• 

\ seatype « VAtS fwieiitypst typcoufi» LOVI * 6 ** 

\ IF DiFP CfineiRtypeSl THEH » 7 « 

V iseiicoun « 1 « 8 •• 

\ HHILi aeneoun <« VCNT C&iieiitypefi} DO « 9 « 
\ co«)i « 6£NLISTf&fieiitypeS#!ieiicoun964#VCNTI&iiie«typeSl9*«-*} 

4'DEL£TE#£iteatype&/Ecosdfi •• 11 •• 

% HHILiliO • 12 • 

\ IFENO « 13 •• 

\ typcoun « typcoun ♦ 1 * 1^ •• 

\ ilfllENO •• 15 « 

\ ROUTiNO dirflle " 16 •• 

line 1 defines the list of pareneters for which LIBEDIT 

directives pay be generated. 

line 2 defines the nape of the file to receive the directives. 

line 3 Initiates the directives file. 

line 5 starts 1 loop Mhlch cycles through all of the directive 

generating parameters defined on line 1. 

line 6 sets the variable •'aiemtype'' to the name of the next 

piraieter for Mhlch directives may be generated. 

line 7 checks whether the current parameter itas specified when 

the procedure was called. 

line 9 starts a loop which cycles through all values supplied 
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7,0 PARAHSTil^ OfFIHITIQH AND PtOCgSSIN€ 

7«3.3 SgHLIST - OiHEHATi LIST FI^Qf! PARAHITIR IIST 

for the cyrrent para^etsr mhen the procedure nas callecl. 

line 10 yses the SiHlIST function to extract fueiRber naaies from 
the value list of the current par ameter* and format tht» 
Into a II8E0IT directive. 

lint 11 causes the directive to be nrltten to the directives 
f I ie« 

The remaining lines handle the cycling of the loops and the 
finishing off of the directives file* 
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7»0 PARAHiTSR DEFINITION AHD I^RQCiSSIHS 

7.4 DEFIHIH^ PmknmBR DEFAULTS 

7.4 ai&iiiiiii.Eia4aiiEE«aii4iJLis 

In this section w« will ddscribt somi^ of the wtthods for dtflfilng 
default yaiyas for paraoieters land keyHordsl. Tlie sliiplest UBy of 
setting a clefault for a single valyed NAH paraiaeter is to declare 
the default %s one of the keywords for the paraaisterl then use that 
ktyi^ord throyghoyt the procedure to refer to that parameter • For 
example^ the S£S RSPHiH procedure contains! 

\ Pkm ICEY«C«fl«f •group* IfHVALS-lf NAH 

which defines the parameter for the *iroup« <of member si flle» All 
through the procedure* this parameter Is referred to via the •group* 
keyword* thus If the parameter is not specified on the call RgPHEB* 
GROUP will be substituted anywhere SgroupS appears. 

When this liethod Is not appropriate* one of the functions 
described in the following subsections could be useful* The purpose 
of these functions Is to determine if a parameter was given a value 
ISSTVAL) or if a keyword was used to specify the parameter CSSTKiYK 
If this condition Is true* then the SiT^AL function Is treated like 
the VALS function* and SETKEY is treated like KEYVAl. If the 
condition Is false* the reffiaining processing done by both functions 
Is the same. If the specified variable Is defined (usually in the 
user's PROFILE? then its value Is returned by the function* 
otherwise the specified default value is returned* 
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7.0 ^ARA^ifSR OfFIHlTION AHO PROCgSSINS 
7.4,1 SSTVAL - SST OSFIkUlT VAIUS 

7*4. 1 SiTV4L - SST Dil=AUlT VAlUi 

Th« pyrpost of this function is to r«tyrn a valy« for « 
paraiieter» lauch like the VAtS function described earlierf In fact 
this function's fast three parameters are treated just like the 
three parameters for the VAIS function* The general forw of the 
SETVAL function Is* 

SiTYALIdef aul t.value#var.na8ie#paraiiiet9r.fiafie»lfidex»i0y/Hiy) 

where ••Index** and •'LOV/HIV** are the parameter value Indices and are 
handled In the saoe manner ss in the VALS function* ••paraffleter^narae" 
Is jQ^ of the keywords for the paraifieter you are Interested ln# 
"var.nasie*' Is a variable name* and "def aul t^value** Is an expression* 

The processing of the SlTVAi function can best be explained In 
terj»s of the foil on In 9 ps%u4o SES code* 

\ IF SrRfVALSfparaiieter.naiRef Index* LOV/HXVH THiH 

% SiTVAi. « VALS I parameter. name t lndex# LOV/HXy} 

\ mi¥ OSFfvar.naiel TH£H 

\ SETVAL « var.fiaiie 

\ ELSi 

\ SETVAL * defaalt.value 

\ IFEHD 
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7.0 PAt^llETgl^ OEFINITIQM AMD PROCiSSlHS 
7*4.2 S£TK£Y - SET 0£FAUIT KSYiOtO 

7.4.2 SSTKEY - SET DiFAULT KSYMQRO 

The pufpost of this function Is to tsttbllsh a vtly« for tli« 
keyword of a parameter. The general for^n of the SETKEY fynctlon 1st 

$£ TKiYCiiefault«y«luejyar«naiie# par aiieter.naiie I 

where "paraaieter.naiiie'' Is mBX of the keywords for the parafflttir you 
are Interested ln# •• var^natRe" Is a variable nawe* and 
"defaul t.valye" Is an expression. The processing done by the SETKEY 
function can best he described by the following pseudo SiS codei 

IF KEYyALCparaneter.nafael /« •• THEN 

SETKiT * KiYVAHparaaeter.naiial 
ORIf DgFlvar.n8«el TH£N 

SETKEf « var.nane 
ELSE 

SETKiY « def«iiit.value 
IFiNU 
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S.O Fill SfSTBn OIRiCTIVSS 



8.0 £ILI^MIIii.aiEI£IiMII 

SB'S provldlfis dirdotivds wlii^h hIIom you to issye flit systtn 
Gomm%n4s d I recti y from the body of an SiS procedure* The coraiafids 
fair Imto the groups of 

o File attribute testing sl?8llir to tht NOS FIl£ function* 

o Rewinding and Returning Files 

ACQUIRE and gXTRACT directives similar In function to the 
ACQUItE and EXTRACT control stateiaents Cthe latter are 
described In appendices to this document)* 
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8.0 FILE SYSTEM DliECTIVES 

8.1 FILE - TSSTING FILE ATTRISyTES 

SIS IfflpleiBsnts the NOS FILS funetion which alioMs you to asic 
various <|uestlons about flNs« The tests that way fee performed ^re 
desorlijtd \n the NOS reference raanutls. The general forw of the 
FILE function ist 

FILE (fiie.naiiep express! on I 

where ••f I le.name" Is the naaie of the file to be tested* and 
••expression" Is the test to be performed* 

i&all; illtati that the FILE function Iwpl eiBentecl by SES tests the 
file attributes at the time the procedure body Is being processedf 
and Qai s«hsn the generated control statements are actual ty being 
executed. 
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8.0 FILE SYSTEM DIRECTIVES 

na m^im fiies 

SgS illoiis fUes to be rswoufi^ during SES processing. The fcriaat 
iss 

RiUIND F«llst.of.f ll««iia««s 

where llst.af.f I la^naiaes Is the nameCsl of the fileCs) to be 
rewound* 
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8»0 Flli SirSTEH DIRECTIViS 
8#3 tETUI^N FILES 



8.3 illMi-EILfS 

Filts way also be returned dyring S£S princess ifi9* The format is 
similar to ttie Renlnd direotiyes 

RETURH F»llst.of.flle.iitiiie$ 

ulitre 1 Ist.of^f I le.names is the nat»eCsl of the flleCs) to be 
returned* 
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8*0 FILE SfSTEH DIRECTIVES 
8.4 ACaUll^g OIRSCTIVg 

SES supports the ACaUIRE directive froia inside the SES processor. 
The SES ACQUIRE directive works In the same manner as the ACQUIRi 
centrot stateaient. The generel form of the ACQUIRE directive Isi 

ACOilIRE FN/F«loctl^f I le.na««# PFN»pernefi«nt«f i Ie.naiii8# UH'user.neiae 

where *• locals flle.na^e** is the local file n%mn when the file Is 

ACQUIRt'd» **persianent.f I le^nawe** is the permanent file name of the 

file In the file systee» and "user^naiae" is the ntme of the user who 
owns the f I le. 

A complete description of the ACQUIRE control statement can he 
found in an appendix to this document. 
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§•0 FILE SrSTEH OIRECTIVES 
8.S iXTlACT OIRiCTIVS 

S£S also sypports ttie EXTRACT dlrtctlvfif hNIcIi functions tt 
Pfocedura feyMd tlwe in the same laanner as the EXTHACT control 
stateisfit functions at proctdyre run timt* Th« gtneral form of thi 
EXTRACT directive 1st 

gXTHACT F«iffi#R«rfi#L«lft?FM«lpfn#U«yfi#T«typ« 

where the parameters of the EXTRACT directive have the follonlna 
meaning* 

F or FN specifies the local File Nawe far the record >ihen 

It has been gXTRACT»ed. 

R or KH specifies the Record Hame of the record In the 

library* 

L or LIS specifies the Local file naiae of the LIBrary when 

the EXTRACT directive ACOUIRi's the library for 
processing* 

IP¥H or LI8PFN specifies the LIBrtry Permanent File Nawe of the 

library In the permanent file system* 

U or UN specifies the User NAHe of the file's owner* 

T or RT specifies the Record Type* The record type eay be 

specified as TXT# TEXT* PP$ UII8# R£L» OVl# ABS# 
QPLp OPtC# OPLO# FPU* If this parameter is omitted 
from the dlrectivej then only the record name is 
used when searching the library^ and the first 
record of that name Is EXTRACT «ed* 

A complete description of the EXTRACT control statement can be 
found In an appendix to this docyment. 
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Hhen SiS Is called It sets up a fiu«ljsr of variables which are 
availtble for usa by th€ procadyrt nrlter to control the flow of 
procedures. Host of these predefined variables are a record cf the 
user's environment at the ti«e that 3£S was called* 



9.1 SiS-lXiIia-I££iyiLI-]iMIiaL£S 



flAXVAlS defines the HAXlayiB nuiRbar of VALueS that mmy be coded for 
a parameter. It Is set to Z33* 

llHiliH defines the paxlaiui»i LINE LEHgth* It Is currently set to 

SiSLMAH defines the default name for the SES library HAHe. It Is 
currently set to SESPIIB. 

SiSUHAH defines the default naie for the SES User HAIfe. 

PtCLNAH defines the name of the file (library) from uhlch the 
current procedure Is being read. 

PRCUNAM diflnes the user name for the OMner of the file C library) 
from which the current procedure Is being read. If the 
current procedure Is being read from a local flle# then 
this Virlabte Is set to the name of the current user. 

HLPINA?1 defines the default name for the SES HetF Library NAHe. 
This library contains help documentation for standard SES 
procedures. It Is set to SESHLI8. 

HLPUNAH defines the user name for the oiiner of ttia help library. 
It Is currently set to SES. 

STALHAH defines the default name for the SES STAtus Library NANe. 
This library contains status Information for the standard 
SES procedures. It Is set to SESSLIB. 

STAUNAH defines the default name for the o^ner of the status 
library. It Is currently set to SES. 

PROCMAH contains the name of the procedure which Is currently being 
processed. 
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9*0 PRiOEFIHSO VAtlASLES 

9.1 SiS SYSTgH DiFAULT VMIASLiS 



PRIHOUT contains the naws of the current PRlHary OUTput file. 

USSR contains ths yser nifiie of the currently loiged In user* 

DUN da fay It catalog that contains tlie user files nme494 by the 

procedure being called* 

OPN default packnaffie that contains the user files neeii&4 by the 

procedure being called* 

JQBNAHS defines the nawe of the currently running Job* 

CSST contains the current character set of the user terailnal* 

CSST may be either ASCII U) or NCJRHAl CO)* In batch node* 
CSET contains NQRHAl* 

NODi defines the current mode of the procedureCs) being 

processed* HODS contains one of RUN* meaning that the 
procedure Is being processed for execution In the cortrol 
statement filet 7iST» meaning that the procedure Is being 
run In test mode* HELP* which sneans that the user wants 
help Mith the procedure* or STATUS* nhich means that the 
user wants the current status of the procedure* 

SES^s*ROC. ERROR defines a numeric value that can be used to set the 
£F Indicating an error was detected by the procedure* not 
the operating system* It Is currently set to 60* 



9*2 y^iE.£!!JlIIEOMII&III.M^£lAii&S 

Mhen the user makes an SBS call* SES records Information about 
the users environment at call time* so that a procedure writer way* 
If so desired* restore the user*s environment at the end of the 
procedure* The data that Is recorded 1st 



Rl thru R3 

RIG 

£F 

£FG 

SW1-SM6 

Ft 



job control registers* 

global Job control register* 

error flag 

global error flag 

sense switches 1 to 6« 

field length at procedure call time* 
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9,0 Pl^eOiFINSD VARIABiiS 

9,a USER SMVIRONHfHT VARIABtES 

iFLLINE yntll otheritlst ctiang«d Cs«e ttie SSTRFL dirtctlvel* 

RFllINg contains the character string •SRFllSFiS) »# 
mh%Te Fl is as definad above* 

Ail account block limit* 

JSl Job step llwlt 

OT or! sin type* 

SS sub system 

Tl tiffle liiait* 

iiJli* that because of the large nuiaber of byllt-ln functions and 
pre-defined variables available to the SiS procedure writer* there 
could be some confusion on the part of the procedure user when 
he/she chooses a name I for a flltf etc*) Mhlch conflicts i«ith one 
of the ••bull t-i ns*** To avoid such confusion* SES will recognize 
fiflll the naifiest TRUi# FALSi# Y6S* and NO nhen It scans the 
parameters on the control statement Mhlch calls a procedure* 



60460270 02 



€0€ - SOFTiAii ENGINSEilflS SERVICES 

22 HAY 84 
S£S Procsdurs llrltir»s Sulde RgVt £ 



Al.O USSFUl PROCEDURE SSSMEHTS 



T^is appendix contains dascriptions of somt procedure segrotnts 
that could be usefyl when writing SIS procedures* These segments 
aay bB Included In a prccedure by aeans of the foil owing direct! vet 

\ IHCLUOf •se9naaie«# L«UNIQU£{NAif€)f Lf»FII«SgSil4AN# UII«SiSUflAil 

where ^segfiame** Is the neme of the desired procedure segnent* 
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Al.O USEFUL l>tQCgOUI^£ SiSHENTS 
Al.l CAlPf^OC - CALL SiS PROCEDURE 



This procedure segmant iIIoms for aasy oalling by one procecfurt 
of another^ when the celling procedure wishes to pass to the called 
procedyref parai!ieters froiB Its own paraisettr list* The procedure 
segment itself gives further details* 



** Attgust 

w 



3lf 198X " 
\ FAtniMD 



DXRCHAR » 
IF ?IQOi « 
INCLUDE 
IFEHD 
Oli^CHAR « 



f |t 

HELP THEN 
•CALPI^OCHLP* 



L^UNIQUSfNANEI LI»FN«HLI»LHAIf UH«l»i^CUNAI1 



•• CALPI^QC.CIllllteHI •• 

callndx • I 

IIHILE ealindx <« VCNTf&catpam&l DO 

IF C«f« /« SU8STRC€aillii«# STRLiNfeai llfiel}} AND «• 
CSlfSSTi^lealllnet STRLEIICeel I Inell /« «f«} THEN 
ealilffie « eailine ♦♦ •#• 
IFSND 
calilne * oalline -•>♦•• 

€ENLIST{&oaiparfli&# eti In^xt LINELEH-S*STRLENIcat line)) 
iXIT WHEN ealindx > VCNTC&calpariiS} 
IF STRLEHIeaiiifie) <« STRLENf' «••• #M THEN 

ASORT •Seafparti& FARAHETER VALUE TOO LONG* 
I FEND 
call iiitS •* 

calllfie • • *••• • 
WHILEHD 

caltrlr « SETVALI»«f 
IF STRLEIifeaitrlr) 



caltrlr) 
♦ STRLENP 



► •• «l > LINELEN THEN 
ASORT •&eaipariiC TRAILER VALUE TOO LOUG* 
ORIF STRLENIcalllnel 4- STRLiN(caltrlr) > LINELEN THEN 
calllneS •• 
*••• &eaitrlr& 
caltrlr « •• 
ELSE 
CcalllnefiSeal tr IrS 
caltrlr • •» 
IFENO 

•• End of CALPROC.CONHON •• 
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Ai.o mifui pmcBomB sesments 

A1.2 J08l»iU^« - 0£f^lHi l>MAn£TEtS 



FOt 8ATCH 4085 



This procidura segment contains th« PARH directives which define 
all the "standard* partpieters used In procedures wt^ich raay run as 
batch Jobs* This procedure should be If^CLUDEd In any SES procedure 
i4liich nil! handle batch processing* 



4QBPARH 










M 


August 


28# 1981 * 








\ 


IF NOOS « HitP THiN 








\ 


INCLUDE •JQ»PAR«Hir« 


L»UliIQUEtHANE} lPFN»HiPlHAH yH»PRCUHAN 




\ 


IFiHO 










H 


J3BPARH.C9HIIQN •• 










PARH 


KfY « *Jobtffl« 


• user naae •• 


NVAIS * 1 


STR 




PARII 


HSY « •JofePit' 


* passMord • 


NVAtS » 1 


STR 




PARH 


K£Y « •JoHfiily* 


•• famllf * 


NVAIS - 1 


STR 




PARH 


KEY « •Jobcn* 


•• charge fiumbdr •• 


HVALS « 1 


STR 




PARM 


KEY * rjobpn* 


•• project nunber * 


NVALS • 1 


STR 




PAR« 


KEY - •JoUfi* 


« field length « 


NVAIS « 1 


NUN 




PARN 


KEY « 'jobtl* 


« time ll«lt * 


NVAtS « 1 


NUM 




PARN 


KEY » »Jotipr« 


•• Job priority • 


NVALS - 1 


NUN 




PARH 


KEY « (Moeai« »i 


batch* •batchfi* •defer «l 


NVALS « 






PARN 

M 


KEY - <«fiiidayf «f 

\ PARHENO •• 


•dayflle«» »df«I 


NVALS « 0«.l 


NAN 



" End of JQSPARN.CQNNON •• 
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Al.O USEFUL rtOCEOytS SEG?1iNTS 

A1.3 JOSHORl - l>ROC£SS JOi PARAMiTiRS 

Al. 3 dQiaiil«=.£ia£ISS-lii«£I£AliIIESi 

This pracedure sag««fit will proctss tha pira«et«rs for s bttcit 
Jofe^ setting up defaults^ etc* Details of Its functlofi are 
described In the procedyre segiaent Itself* 

•• August 2i# 1981 * 

•• \ Pknmm * 

\ IF mOE • HiLP THEN 

\ ZUCLUOS «JOBHORlHtP« L«UNIQUi(HAf1i} IPFH*HLPLNAM Ul««PRCUNAM 

\ IFfNH 

" Jll«HDRl.C3«flOM •• 

\ Jobun « S€TVALf*USER*# USER» Jobynl 

\ JobiROde « SiTKEY{«tOCAl«# Jobaode^ batcbl 

\ IF Jobffioiie /* <iOCAt« THEN 

\ IF NOr DEFfPASSWOIt) AND NOT DEFPf Jobpii} THEN 

\ IF FILEIINPUT NOT TT) Ot FItiCOUTPUT NOT TT) THEN 

\ ABORT VPASSHORD NOT GIVEN* 

\ IFENO 

\ PARTIAi.PASSWOR « CHARREPC128I*+«I ENTER PASSWORD • •• 

^•♦CHAttgHiai^KHARRiPfO} •• 

♦♦CHARRiPIOl^KHARREPfl0l**CHARREP(OI**« HHHHHHHH* 
\ PASSHOt « PARTIAl.PASSIIOR «• 

♦♦CHARREPfl3l**CHARR£PCOI*^CHARREP<0)*4.« IIIIItII» •• 

^i-CHARREPfiaK^CHARREPfOI^^CHARREPIOI^^* «##««#§#• «• 

♦♦CHARRiP<13l**CHARREPfl281^*«A« 
\ ACCEPT PROMPT PASSMOR TO «OUTPUT» FROM »INPUT« INTO •PASSMOR* 

\ IFEND 

\ jobpii « SETVALfnotused# PASSHOR^ Jobpn) 

\ IF NOT DEFCCHARGEI AND NOT DEFPf Jobcnl THEN 

\ IF FILEIINPUT NOT TTI OR FILEfOUTPUT NOT TTI THEN 

\ ABORT 'CHARGE NUMBER NOT GIVEN* 

\ I FEND 

\ CHARGE « < ENTER CHARGE NUNBER • ** CHARREPI128I ♦«• *A* 

\ ACCEPT PtONPT CHARGE TO •OUTPUT* FROM •INPUT* INTO 'CHARGE* 

\ IFSNO 

\ Jobcn « SETVAifnotusedj CHARGE^ Jobcnl 

\ IF NOT OEFIPROJECT) AND NOT DEFPf Jobpn) THEN 

\ IF FILEf INPUT NOT TTI OR FILE f OUTPUT NOT TTI THEN 

\ ABORT •PROJECT NUIIBER NOT GIVEN* 
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SiS Pfocsdyrt Mrltsr's Guide iEVi E 



Al.O USiFUl PI^QCSDWE SiSHiNTS 

Al,3 4QBHDRI - PROCiSS JOS PARAHETSI^S 



IFiND 

miJfCT « » ENTER PROJECT NUHSER • ♦♦ CHARRil>C128l ♦♦ *k* 

ACCSn PROMPT PROJECT TO •OUTl»UT» FRQII «IflPUT» INTO «PROJiCT« 

IF€ilD 

Jobpii « SETVAi(notused# PROJECT^ Jobpii) 

jobfnly • SiTVAlC««# FA«Iir# Jobffuly) 

IFEIiO 

IF DSfPiJobf n THiH 

IF VALSIJobf II < 70000181 THEN 
Jobf I • 70000181 

IFENO 

Jobf I « •#€«• ♦♦ OCTIVAlSCjobflll 
ilSi 

Jobf I « •• 
IFfllO 

Jobtl « 'fT* ♦♦ QCTIS£TVALf200Of8># defjbti^ Jobtlll 

IF DEFPC Jobpr) THEN 

Jobpr « '^P* ♦♦ VALSCJobprl 
ELSE 

Jobpr « »• 

IF END 

Jobf i to » UNIOUEIHAIIi} 

" End of J08H0R1«C0H«0H •• 
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22 flAt 84 
SES Proctdyfs Mr Iter's Syld« l^iVt 2 



Al.O USEFUL rtOCiOURi SiSHENTS 

41.4 JOSHDRE - f^aOCSSS ST4RT OF JOS FIIS 



A1.4 iiaiMiiii^r«£aaii£ii«ii4gi-a£aai-£iLi 

This proctdyre segaent condltloi^al ly generates the code i^ecessary 
to syfeiilt the proeedyrt for featch processing* Details of Its 
function are described nltiiln the procedure segwent Itself* 

4mmitz 

•• August ZBf 19BI » 

\ IF HOOE « HEi? imn 

\ INCiUDi *J0SHdt2Hii»* fUNICIUEfNAHil LI»FH«HtrtNAII UH»PRCUNAH 

\ IFEHO 

•• 4i3BHOI^2«COHHON •• 

IF STRtENIPRQCHAfll > 7 THEN 

PROCJOBNAHi « SUSSTRCPRCiCllAllf 1# 71 
ILSE 

FROC.JQSNAni » PROCNAH 
IFfND 

IF Jobiiode /• «LQCAl« THEN 
IF Jobvode « 'BATCHN* THEN 
SU8N2T(&JobflieSfli} 

ELSE 
SUSNirCSJobf ileS;#BI 

IFENO 
RiTURNUJobflleS} 
REVERT* JOB CPRQC.JOBNAHEC; SUBMITTED 

IF HQDE « TEST THEN 
J0bf iie£ 
ELSE 

ROUT Jobfile 
IFEND 

&FROCUOBNANE&SJobfit&Jolitli;SJob|ir&* **^ SRROCNAHS *** 
IF VAlSfJobf filly) ♦♦ yAlSfJabpii) « •• THEN 
USERfSJobufiCl 

ORIF VALSfJobfaiiy} « •» THEN 
$USERf&JobitnS#&Jobpii£) 
ELSE 
USERCSJobunSf&Jobpii&^&JobfiilyS) 
IF€ND 

IF VALSUoben) ♦♦ VALSfJobpnl /« •• THEM 
$€HAR6EC&JobcnSffiJobpa&) 
IF€NO 
IF Jobnode « •DEFER* THEN 
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SiS l^rocedyrt iritsr's Guide RiV« 2 

1^1.0 USEFUL i>RO€iDlii^£ SESHINTS 

Al«4 J08H0R2 - PROCSSS STAET OF 408 Flit 

imm i m 1 — <i«i »■ iMrii—-<M> ■■> liM — -— MM»- i lMI IWI 1 11 — l ^ I— !■! IIIW <—>■—» I— W> ■— — I — M 111 IM IM Ml !!■ i W i - Ml* 11-i W ii M ■» >^— ■<■!»»*■>■■<■><■!>■— i>-j—i<M»-M——>-4MHt Mi —-^Mi^lW^— ■•Wi»<WHMHWHW»<»-<1h-«»-)—l «» 

%tlHBkPm 

\ IF VAlSCiobcnl ♦♦ VAiSIJobpnt /• •• THiN 

$CHAR0S ( £ jol>ef)&»S JoliimS I 

\ IFENO 

\ IF€HD 

SRFUINIS 

S£SHODifll£ll« 

\ Bxir kimn FitEi«SEs«# not as) 

$SiTIXSiS/UN«&SiSUIiAil&) 

$BgGIII<XSSS#XSiS} 

\ IFEHO 

\ IF DgFPf Jobfil THiN 

\ Jobfl « SUBSTRiyALSCJobfllf %» STRLiNt VALSf Jobf I H - 3) 

\ OR IF DiF(ii«fJbfi) THEN 

\ Jobfl • Q€Tld«fJbfll 

\ it Si 

\ Jobfl « 'TOOOO' 

\ IfBHQ 

\ IFi NOT DiF fill in Jbfn OR ntnjbfl < 70000ISI THSN 

\ ■liiibfl « 7000018) 

\ IFiNO 

\ IF lifijbfl > SJobf t&{8) THEN 

\ Jobfl « OCTCninJbf I) 

\ IFENO 

\ Jobtl » SOBSTRIVALSfJobtDr 3# STRLENIVAtSfJobtl ) ) - 2) 

\ im DEFFCJobpf) THEN 

\ Jobpr « SUSSTRCVALSfJobpr)» 3> STRLENfVALSIJobpr )) - 2) 

\ IFE»0 

* End of J08H0R2.COHNON •• 
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S£S Proc«dur« Mrlt#r»s Guld« I^SVi 2 

AUQ USEFUL PtOCSOURE SiSHfNTS 

A1.5 iSaCTRl - HANOIE «S6 / HOUSS PAiAWSTEft 

A1.5 iSi£IEi.«r«i!4MfILi«iii«£«iaaSS.EigiiiIig 

Triis procedure segment Hiii process the nsg/noiisg Iss^^ord 
paraieter used by ™«ny of the ••staritlard** S£S procedures* Oetills of 
Its function tre described \n the procedure segwent Itself* 

HSGCTRl 

•• August 31 # 1981 «■ 

* \ PAHHEND « 

\ IF MOOS • MitP THEN 

\ INCtUOi «lfS6CTiltHii>« L»UHXQili(NAHil LPFN«Hii»lllAH UN«PRCUNAM 

\ IFCKO 

« WSSCTRUCPHHOH •• 

IF OiFKCfiossiil m IOEFIJobiiod#} AH9 Joii«ode /> •LOCAL'} THiH 

sesmsg « •*• 
ORIf HOr DEFHiisgl AND OiF(HSGCTRLI THiH 

ses«sg « NSQCTIIL 
ELSE 

seswsg « «S£SHS6«*« 
IFSMO 

•• End of NSSCTRL.COHHON •• 
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Al.O USiFUl l>iOC£DUI?£ SESHiNTS 

Al.6 RI^RITi - aVER-MRIT£ OR CRIATl l>iR?IAHENT FIIS 



Al. 6 iEILaiII-= JlMIi=MElIE-i]B.i;EEiIl.£IEMM£MI-£iLI 

This Pfoceduft ls8iJi!«nt) c«n b« yssd to ov«f-Mf Its or crttti « 
permantnt file Clf craatef ttie file Is defined as e direct access 
private* read-only permanent file* If the procedyre Is used as a 
procedure segment Cl«€» INCLUDid) the variables **reHr I tl** and 
*r«i«flto»» wust have b^nn defined by the INCLUDIng procedure* 



Ri«RITi 

•• August 31f 1981 « 



IF Hooe 

INCtUDS 

IFENO 
PARi 



HitP THEN 
•RiHRITiHtP* 



L^UNIQUifNAIIi} 



FARM 
l»ARf! 
PARfl 

Pknn 

PARiiMD 



Kit « l«l«# •renrltM) 
KiY « l»««f «reiirito*} 
KEY « C«un«# ♦reur I tu« I 
KSY « {« status^ # 'sts*! 
KSY « {«iBsg*# *nons!iU 



PFN«HLPLNAH 


UN*?R€UNAfl 


iVAtS « 1 


NAII R£a 


NVAtS > 1 


NAH R£a 


NVALS • 1 


STR 


HVALS « 




HVAiS « 





REWRITi.COIIIIOH " 



ftttir Itu 

r«tryrii 

dsfiem 

skiprM 

labell 

labels 

label 4 

label 5 

Iabel6 

Ub«l7 

labels 

label 9 

label 10 

labelU 

labelU 

exjttag 

saaertf 



SiTVAlCilSERf 
UNIQUKHAHE) 
UNIQUSCNANEl 
UNXQUilNANE) 
UHIQUEINAHS) 
UNiaUilNAHE) 
UNIQUffNAHE) 
UHIQUEfHAfli) 
UNIQUilNANil 
UHiaUiCHAME) 
UHIQUiCNAHEl 
lfNXQUE(NAH£l 
UNIQUEfNAHE) 
UNXQU£{NAHEI 
UNIQUEINANEI 
UNIQUECNANEI 
C*Sret«ritU« 



reMrltu» reiiritu} 



cfirenrltoSM 



IF IDEF(»lstatusn OR (OEFIstatusH THEII 

rufallil « •SSKIPfSexlttag&P 
ELSE 

mfalM - •EXIT* ♦♦♦ REURITE FAUEO ♦**• 
IFEHD 



\ IF PRaCNAil « •REWRITE* THEN 
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ki*Q ussfut fnmmmB sishents 

A1.6 RiiRITg • 0V£R-MI?ITE OR CHEATS PERHAHi^T Fllg 



•• HS SCTRt.CQUMON •• 

\ IF DSFKfnonssI OR CDiFUobiBOtiel AND Job8io<l« #« UOCALn THIN 

\ sesiBsg « •♦• 

\ mU NOT DiFI»{iiS9l AND DEFCNSGCTti) THEN 

\ sfissisg « NS6CTRL 

\ £tSE 

\ IFiNO 

•• End of NSSCTRl.COIINON •• 

\ IFSHO 

$S£TISF«©I 

$S£T|gFS«OI 

SSSTCRl-1) 

ACQUIRECSretfritiS/AI 

\ IF saner N THEN 

\ pfnrm « *Sreifrlto£* 

\ reMfito « UNIQUE IN AH£} 

% IF PROCNAN « 'RiilRITE* THEN 

$IFEIFIi.£ISr«Mfltl€>PlllfSi«l»ellS} 

SESHSS. REHRITE NOT PfRFORHEO SINCE FILE 

SESNSG. NAVIES EQUAL ANO SreHfltlS PERHANENT 

$iNDIFf&tab6iiSI 

X IFENO 

$IFilFIiEfSr«iirltfS#«ilOT.f»KlfS;siclprti&} 

\ EiSE 

\ pfnrm » *&r«MrltoS* 

\ IFENO 

A€QUIRE{€r6ifrlto&«SpfnriiS/UN»&reMrltut} 

\ IF VALSfrenritu} « USER THEN 

$IFEfFIiEC&r«iirltolkfPNIj&Ubet3€l 

ACQUItE(SreMrlto&«&pfiiriifi/PQ#H«)l) 

$EN0IFUI«b«l3&} 

$yHIlEtTtUEf&rttryfM&« 

$IFifFItEf&r«writoSf«N0T«AS}»&fabel4&l 

SOEFINEf&r«Mrlto&»Spffirw&/N«RI 

$ENOIFU I abates) 

ACQUIRE (firawr I toS«€pfnrii&/A9N«lll 

$IFECFItE(C;reiiritoS#Pn)#Clabal5S) 

$EVICT(&r«ifrltoSI 

SCOPYEIfSreiirltlS^&reiirlto&fyERIFY) 

$£LSEfSiab8l5«l) 

$REPLACEfCraMriti&»EpffiriiSI 
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22 HIY 84 
S£S i>r3«5«iur« Mrlttr's SuMt f^iVt a 

Al.O USSFUL PROCiOUti SiSiiNTS 

Al,6 mmtr^ - OVEt-M^ITI Ot CiEAIi PitHAHSHT FILE 

$ENP|FC£iib«l9SI 

\ it Si 

$IFiCFXLilSr«iiritoS#Pni>Clabtti6£l 

ACQUIRifSr8iirlt4}S»€i»fnrif€/l»Offl*lffllil"Sreiirltu&l 

$£ilOIFC&ttb«l6SI 

$WHIti#TflUifSretfyfifS* 

ACQUIRE {ilreiir1to&«&pfnrii&/H»y9UN»Sr»MrituSl 

$IFi{FILif&r#iirltoSf«NOT*AS}#Slttiel7i;} 

$SiTCSF«ll 

fimfalldC; 

SENDXFCSIati#l7&} 

$IFi{PXUUr«wrlto£#f»lll>C}««s«l8&l 

SEVICTC&rfttffltoSl 

$COi»fiIISraiirltiCf&r«MrltoS#yiRXFY} 

SELSEUUbelSH) 

$RiFtAC£fSrttiff ltU«S|>ffirif&/Uli«&rewrituC) 

$g||D|FfSiab«l0$) 

\ IFENO 

SSKXf^f&donarMS) 

EXIT. 

$lFEIf£F«NE«90E}«AHD«(iF«Hi«TKE)«AND«(EF«NE«PPE)fS;iabal9Cll 

Smf ai I dfi 

$EliOXFfClabel9SI 

$SiTCRl«Rl*ll 

$XF£{{Rl«GT,5lfSlabell^&} 

SntfaildS 

SENDXFfSlaballOSI 

$SETCEF«OI 

SREMXNDC&raifrltiC^&reiiritofi} 

fisasflisgS REUtlTE FAXLEO - HAXTXHG TO TRY AGAXN 

$RQU0UTC120I« REMRXTE FAXIED - WAXTXN6 TO TRY AGAIN 

SEHOWUratryritCI 

SEHOXFUdonarMSI 
\ IF samarif THEN 
$ENDXFfSsklprMS) 
\ XFSHD 

\ IF PRUCNAN /• »R£IIRITE« THEN 

SRETtlRNUraur 1 ti&^Hraiir itoSl 

\ ORXF samarii THEN 

SRETyRNUraMrltlS^EraiirltoSI 

ACQUXREI&reMrltU/A#UN*S;raMritu&} 

\ ELSE 

SREMXNDC&raiiritU) 

$XFE{FILEUr0ifrito&>PH)#&labail2&} 

SRETtIRN Ur a Mr I to£l 

$ENDXFUiah«ll2S) 
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Al.O USiFUL PtOCiOURi SEGMENTS 

Al*6 iEMilTl - Q¥gt-M«ITg Oi CI^SATE PS^I^ANENT FliS 



ACi}UII^ECCrtMrlt0S/JI»tlll*Sr#NrltyS) 

\ IFSNB 

SENDIFfSexlttagC} 

•• §n4 of ltSIIRITi«COMHON •• 

% IF snmtrw THEN 

RiVERT.i END SFROCHAMC CrenrltiS 

\ ELSE 

HiViRT. EUD SFROCHANC (&r«tfritl& •> €r«iirito€ 

\ IFfHP 
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Sl.O OPERATING NODES OF THi SES PtOCiSSOl? 



Ths SSS processor way process a procedure in one of four podest 

RUN Tills Is ttie normal »ode« The procedure is processed* 

presu?B«bly generating control statewents* and then these 
control statements are executed* 

TiST In this mode the procedure Is processed In the normal manner # 
Uu% the generated control stttewents are not executed* 
Instead they are placed on a deslinated file for possible 
inspection by the user# This wode is meant as an aid In 
debiigglng nei« procedures* 

HELP This mode Is similar to test ?sode* however insttid of 
generating control statei^ants* a procedure set up for HSLP 
isode »illl produce some documantatlon on Its purpose and 
usage* 

STATUS This «od« Is Identical to help mode* except a procedure set 
^P for STATUS mo4% will provide the current status of the 
procedure* 

The laodes are selectable by the user by saeans of parameters to 
the SES processori and the procedure can determine in which of the 
modes It was called by means of predefined variables set up by the 
SES pragrei* These variables ares 

HODg This variable may be compared with the variables RUN* 

TSST» HSIP> or STATUS to deteri«lne which of the modes is 
In effect} for exemplet 

\ IF HODi « HELP TH£N 

«• code for HELP aiode •• 
\ ORIF HOOg « TiST THEN 

•• code for TEST node * 
\ ORIF HODE « STATUS THEN 

" code for STATUS aodt •• 
\ ELSE 

•• code for RUN node •• 
\ I FEND 

PRIHOUT This variable contains the name of the PRIHary OUTput 
file* In RUN ffiode this Is the new control statement fllel 
In TEST Biode this Is the file designated by the test wode 
parameter on the SES call (default Is SESTEST)! and in 
HELP or STATUS mode this Is the file designated by the 
help or status mode parameter on the SES call (default Is 
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81.0 QPSRATINS «QOES OF TH£ SES PI^OCESSOR 



3Urf>UTI. PilHtliT Is ptrtloularly ystfyl In HilP or STAtys 
jwode for directing tfie descriptive information aboyt the 
procedure to tht file selected by the user on the SSS 
call* This may be accomplished as follOMss 

\ IF NODS • Hill> THiN 
\ ROUT FA-PRIHQUT 

** <i«scrlptive inforfliatiofi about ealied proe«iiiire ** 
\ ROUTSNS minisuT 
\ STOP 

\ UFiNO 

Hats* in HELP or STATUS mode* a PARHEHD directive wl M be 
Interprtted as i STOP directive^ to prevent a procedure not set up 
for HELP or STATUS mode from doing strange or undesirable things* 

Bi . 1 ^MiMim^jmiiEJi^^Qtm^im 

As stated above^ the mode of operation for a procedure Is 
selected fey a parameter to the SSS processor. 

TEST mode may be selected by one of the keyiiords* TEST or T. For 
examples 

s«Sf tast^proeedure.nant llst^of.paraaeters 

^11 1 process procedure ••procedure^name** In TEST node* and place the 
generated control statements on file SiSTESTi whereas t 

ses#t»Jiy.f I ie«pro€edure.na«tt I f st^of.par ameters 

Kill process procedure ••procedure^naiie^' In TSST wode> but places the 
generated control statements on flie ••lay.f I le^*. 

HELP mode may be selected by one of the key«iords« HELP or H» For 
ex amp le« 

s es# he! p«pr ooedure^name 

causes procedure ••procedure^name'* to be processed In HELP modef and 
any descriptive Information available hI 1 1 be placed on file OUTPUTi 

Mhertas* 

sesfh«iiy«info«proc«dure.na«e 

causes procedure ••procedure.name*' to be processed In HiLP mode* but 
any descriptive Inforisatlon available ^111 be placed on file 
"ifiy.i nf o**. 
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81.0 mmkiim nmm Q¥ the ses Mocessoi^ 

81.1 SiliCTINS mm OF GPiRITION 

STATUS iiode may be selected by one of the keynords* STATUS or S« 
For m%%mp\%t 

s8s»st«tus«proe«ilur««iiaae 

ciyses procedyre **procedure.nafrie** to be processed In STATUS wode^ 
and any stttys Information availabre nil! be ptaced on file OUTPilTl 
Mhereast 

ses fS*iiy«.iiifo«procedure.fi«iie 

causes procedure "procedure.name'^ to be processed In STATUS iRode* 
but any status inforiBation avaliabit m\%% be placed on file 
"nsy^l nf o*». 

Mais* that when calling a procedure In HELP or STATUS mode* a 
list of parameters should afit fee glyen. HELP or STATUS for a group 
of procedures may be obtained by one call to SiS> as foMoMSS 

ses#lieip«proc.ll 9f9^^Zi pfoc.3 
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C1»0 iRROR liiSSASCS 



Tills Apptnillx d^ssribss th« messages produo#<} by the SES 
processor when errors are detected* S£S error giessages have been 
«ade as self-explanatory as possible* ilien an error Is detected by 

$ES# a ifiessage Is printed In the formt 

** E CI llOOlt EXPiCTING "nane found Integer for parameter X** ON 
COHHANO STATEMENT 

The E at the beginning of the line Indicates this is an error 
inessage* 

The CI Is an ibbrevlatlon for the System Command Language used by 
SIS to do syntax processing* 

The nuiBber 1X001 is an error code assigned to this error 
condl ti on* 

The text which fotlOMS the error code describes the error In 
detail* Appended to the end of the text Is the line nuiaber of the 
line being processed by SiS* In this first example* It Is the 
coiawind statement Mhl ch Is In Brror* 

After the error fnessage* SES outputs the line it was processing 
Khen the error was detected* followed by a line containing an 
yp.irroM it the point In the line nhere the error was detected* 

SSS*tEilllITi 1«123 a«ABC 

Usually the error actually occurred on the token just before the 
up. arrow* 

Here are two tnore typical exaniples of error messages' 

*♦ F CL 110071 REOUIREO PARAHETER HISSING "I" ON CO««AND 
STATEHENT 

SES.FORHAT 



♦♦ S CL llOllt UNKNOHH KEYWORD "NVtS** ON LINE i 7 OF l>ROC SEGMENT 
HYPROC 

PARH KEY • (*group«# »g«l NVLS « 1 NAN 

Other abbreviations used in SES error messages are SE» Mhlch 
means the error was detected In the processor Itself* and UT* which 
means the error was detected by a utility routine called by SES* 
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Ol^O SEHI-FORHAL SYNTAX DSSCRIPTION 



This section glyes a s8«l-forfflal description of the syntax msb4 
mh%n nrltlni proc«clur«s for tntJ oilllni tti® SES* TH« description Is 
not intanclsd to be rigorous* First ne Introdyce ttie ••«ieta-l anguage* 
used to descrllje tfie synttxi second the character set ysed by SSS Is 
deflnedl and finally the syntax description Itself Is given* 

01* I ia£-a£ii-LMiii4S£ 

This section describes the symbols used In the description of the 
SiS syntax. 



i«« This symbol should he read as "Is defined to be*»* 

I This syiPbol Is used to Indicate alternatives^ for 

examples A I B eeans that either A or B Is alloMed* 

<ltei!!> This group of symbols denotes that Itena Is to be 

treated as a syntactic unit in relation to 
surrounding meta syiabols* 

CIteiRl This group of sy^ibols denotes that lte« Is optional* 

l*e« :zero or ontt occurences of Item ^re alloirfed* 

Citeiii> This group of syiabols denotes that itew aaay be used 

zero or i^ore times* 

Spaces are used In the syntax description to Ifnprove Its 
readability* however they are not part of what's being defined 
unless otherwise noted* 

There are a f%m instances where so^e of the meta syabots 
themselves are part of the syntax definition* and when this occurs 
the meta symbol Is underlined* for exampiei 1 means the I character 
and not the meta symbol* When an . appears alone* It means itself* 



6046G27C 02 



CDC - SOPTHARi £HSINi£iIMa SgRVIC£S 
SiS ^roeeiJyfs Idrltsr^s €ul<ls 



01-2 



Ol.O S£«I-FORHAl SYNTAX OiSC^IPTIOl 
D1.2 CHARACTER SET 



BUZ HUMi^ISi-Sil 

Ciiaracters us€d for HAHSS 



«•••••«••«••««•«•••«•• Dtoimai Digits 



I, Z 
• • 9 

• •••«•••••«•••••«••«•«•••«• y n ^ ® r I ins 

• ••«•• •••«••••«•«••• «•••••• Ooilnf Sldfi 

• ••«••••••••«•••••••«•«•««• r y n d 

• ••«««••••«•••••«•«•••••••• Commer c I a I At 



Characters used for INTiGHi COHSTANTS 

•• 9 •••••••••«••«•«•••••• Dec I IS at Digits 

A •• F a •« f ••••«*•«•* Hexac!eci ma I Digits 

C •••#••••••••••«•••••••*••• Open P aremtlies i s 

1 •«•••••«••••«••••••••••••• Close Par^nttiesl s 



Characters useiJ for Of>ERATORS 



4e 
/ 

> 
< 



•••«•••««••••••••••«• 

«••«••••««•••«••••««• 

••••••••••«•••••••«•• 

«•«•«••««••««•««•••'«• 






Plus Sign 
HInus Sign 
Aster i sk 
Slash (Slant! 
iqyti Sign 
Greater Than Sign 
less Than Sign 



Characters use?3 for PUNCTUATION 



••«••••««««•••••••••• 



Blank CSpacel 

Cofnma 

Open Parenthesis 

Close Parenthesis 

Period 



Character used for STRING OSIIHITER 

' •••••••«••••«••••«••«•«•»• Apostrophe (Single Quote) 



Character used for COMHHENT DEIINITSR 

«••••••«••«••••••««••••«•• (Double) Quote 



It 
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01.0 SSm-FORHAL SYHT4X OSSCRIPTIOH 

01 ,2 €H At ACTS i. SET 

COtfiultl Chartctsr ysei for SysSTITUTIQN DfiLIHITSI? 

S ••«••••««•••«««•-•«••«•* • '• w AiRP ® r s sn d 

CDtfauit) Character used for DliECTIVi HiAOgR 

\ ••««•«••••••••«••••••«•••« l^vdrsfi Sttsti IS I ant I 

Note? Any ASCII character not list«d In tha above charactar set 
has no ifleaning to the SiS processor* These characters m%y 
honever be ysed In strings* cowi»ents# or as data 
characters* 
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Dl,3 SYNTAX 
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Zt MAT 84 



tEVi Z 



01 • 3 IXiliX 

Dl.3.1 8ASIC DgFINITIOHS . 

<uppBr case tett«f> tt» A 

I I 
I Q 
I T J Z 



8 I C I D 1 i J F I S J H 
J I K I I I H I H I I P 
R I S S T I U I V I « I X 



<\0¥i%r cis« l€ttif> tJ« t 

I I 



bl€jd!tlfiglh 
ilk! I Imlnlofp 
rlsltlutvlMlx 



<l«tter> ««« <ypp«r cts« I«tt8r> 
I <loN«r cast Iett9r> 



<aieclR?t I d Igl t> i «« 



1112 13 14 15 16 17 1 



<K8xa<li»clmdl (ligit> « s « A •' 8 I C ; D I E 1 F 

I a I b I c 3 d ; e I f 

<dlilt> i«« <deciR38i dlglt> 

I <haxad9clf«at digit> 

<base> I J* 2 I 3 5 4 I 5 I 6 S 7 I 8 S 9 I 10 

J 11 ! 12 ! 13 5 14 ! 15 J 16 
Dl.3.2 TOKENS 

This section defines ttie building blocks of SiS syntax^ 
collect lyely referred to as tokens. The Internal token scanner of 
the SES processor Is i^ade avaitble to the procedure writer by means 
of the buHt-ln function TOKEN. 



<tokan> «t« <nati}e> • <nuwber> 5 <strlng> 
I <deii^lter> * <operator> 

<naiiie> tt« <alphabetic char> C<a{phabetlc char> * <declmal dl9lt>> 

<alphabetlc char> tt» <letter> J « ? $ S i J 3 



<upper case nai!}e> *<■ 

<upper case I etter> <<upper case letter> J <decl«ial dlglt>> 

All naies %r9 limited to thlrty*one characters In lengthy except 
procedure names and procedure identifiers* Mhlch are limited to ten 
characters. MIth the exception of <upper case na!!ie>S9 any naiie may 
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01.0 S£l!I-FOR«Al SYNTAX CI6SCtII>TI0N 
01*3*2 TOKENS 

be si>eclfl«d with either upper or lower casa lett«rs» but t)«fori a 
f^«ie Is ystd ill Isttars In It are convertad to uppsr case* For 
instance the neinsss A3C> abe» aBe# and so on# are all tqulvaltnt* 
CThls Inclydts any of the ••spaci il** naaias* sych as DOt THfN# HHSH* 
ate* In this dascrlptlon> liowayar» thesa nmrnes ara ali«ays spalled 
out In upper oase letters*! 

<varlabl8 naBie> tt» <naffie> 

< function naiBe> it« <naffia> 

<para«atar na«!a> *«« <na»a> 

<dlrectlve name> st« <nafBa> 

<asslgnee> ii« <para«eter naiRe> • <variable nii«> 

<procedure naffle> it« <naaie> 

<procedyr« ldentifi€r> ««« <upper casa naa!a> 



<number> tt« <decliaal dlglt> C<dlglt>} CC<base>)3 

<strlni cliaract«r> ii« •• 

I <any ASCII character except •> 

<strlng> ti« «C<strini character»« 
<constant> t«* <strlng> I <nyfliber> I <nai»e> 



<dellmlt8r> 1 1« # J C 3 ) 5 « ? * J **€•> 
I <end of i lne> 

<operator> it« <graphic operator> • <(iinemonlc operator> 

<graphlc operator> «t« ** 1 ♦ J / ? // I ♦ J - J ♦♦ 

I « I /« J <> I i^ I i« S k J i* 

<TOnefflonrc operator> «i« AND i OR 1 XOR J NOT 
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Dl*3,3 USE OF SI^ACSS 

Before discussing Hhen and how spaces can be used we Milt first 
define the syntix of cowi»tnts» 

<co?afflent> «J» '•C<any ASCII character except *•>>•• 

In a i most ali cases a comment is treated identical iy to a single 
blank character^ and Z or more contiguous biank characters (or 
comments) are treated as a single blank character* Slank characters 
9T\4 cotnsitnts treated In this manner are knonn ms spaces* 

Spaces aiay be used between tokens to Improve readability and In 
general may be ^sb4 to replace commas *ihen used as argument* vtlue* 
or paraiieter separators* Spaces mit ^t used to separate tokens 
Hhen no <dtllmlter> or <graphlc operator> can be used to separate 
them* For example the spaces between the tokens on the foil cuing 
line must be present! 

VX AND ¥2 

nhereas the follOMlng two expressions are e<|yiiralentt 

VI ♦ V2 
V1*V2 

Further* the following value list contains 2 valuast 

i Xf -3 1 

whereas the next contains only I valuei 

C X -3 I 

namely the value of the expression X-3* 

Spaces within character strings represent themselvesf and 
comments may not be used In front of the \ which occurs at the 
beginning of directive lines* nor following the continuation signal 
it the end of directive or call lines* tines within procedures 
which are not directives or continuations of directives or lines 
which are read using the ACCSPT directive* are treated as unquoted 
strings* and therefore spaces are significant in them* Whenever i 
line is read by the SSS processor* trailing blank characters are 
deleted* Also* It Is legal to precede the \ of a directive line by 
one or more blank characters* 
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Dl.O SEHI-FORHAl SYNTAX 0£S€RIPTIOH 
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01,3.4 SXPReSSIQNS 

<#x9r> II « <lt«na> «or> <l tenii>> 
<or> 1 i« OR ! XOR 

<ltefP> JJ» <lfactor>,CAHO <lftGtor>> 

<l facto r> J«« CHOTJ <lprlintry> 

<lpfliaary> u* <ster!B> C<rel op> <st8ria» 
<rel op> tJ« » I /« I ^ I i« I i ! ^« 

<sten»> It* <teria> €+-*• <t8r«i» 

<term> ti« C<terfli op>1 <factof> C<t8rBi op> <factor>> 

<f«ctor> 3** <prljniry> Kfrnetor op> <PflBiary>> 
<factor op> 1 1« * I / I // 

<pri«itry> »t* Coper and> C** <opefand>> 

<op«rtncl> iJ« <variible ref«r«ncii> 
i <f unction reference> 
< <expf> ) 
<constant> 
<null> 

<nul l> It a 

<yariable reference> it« <yar labia naf!Je> 

<functlon reference> tt» <f unction naiiie> <ar9Ufiient5> 

<argui«ants> tt^ i C<arg> C# <arg»3 ) 
S <null> 

<arg> tt« <nai8e> J <expr> 



CIntager Bxpr> tta <e)tpr> 
<strlng expf> tt« <axpr> 
<boolean axpr> «t« <expr> 



•• aiyst resolve to an Integer " 
•• wust resolve to a string " 
*• aiust resolve to an Integer *• 
•• If the value Is zero* It •• 
« Is taken to be FALSH •• 

•• If non-zero* It's taken •• 
•• to be TRUi " 
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(1.3.5 FOiSISN TEXT 



Foreign text Is prlmarl i^ used for paraieter vatues which are to 
b% in turn use^ as parameter lists Ce*g« to secondary procedures) 
or simply to prevent the SES processor from evaluating an 
expression. 

The scanning of foreign text Is totally different frors scanning 
••norsial** text. The characteristics of this special scanning are 

parentheses are ♦•balanced" 
single and double quotes are "fs at chad" 

If not contained Mlthln parentheses* jingle quotes* or 
do'jhie quotes* the toicenst com^a* period* ellipsis 
C.*C.>)* and close parenthesis will terminate the scanning 
(and thus the foreign text value). In addition* spaces 
which are used to separate names* numbers* or strings frow 
na^es numbers or strings will terminate scannlngi as will 
an "unenclosed*' open parenthesis which follows a string or 
nuiiher CNote* that an open parenthesis fcl lowing a nafPe 
dots not terwlnite scanning - this Is because function 
references %re allowed in foreign text but the foreign 
text scanner doesn't evaluate what It scans* and thus does 
not know If the nasne Is Indeed the name of a function). 

Foreign text may also be described as having the general fcrii^at 
of an express I on* but the expression Is not evaluated when scanned 
Bs foreign text. During scanning comments and blanks not contained 
within singid quotas 9r % "thrown away" and single blank characters 
are Inserted between tokens which would otherwise not be separated. 

The following example illustrates some of the Idl osyncracles of 
foreign texti 

\ vllst • Ma b c <d e) •»? q««»«r* s«« 123181 Ixyfy^B)) )• 

\ count « VCHT Cvilst) •• 2 " 

\ value « VALS CvUst* 31 •• 3 •• 

\ si 1st « 6EHLIST Cvlistf index} h 4 « 

The first line defines a value list In the variable vlist. line 
Z sets the variable count to the value 6. Line 3 sets the the 
variable velue to the valuei 

CID E) 

and line 4 sets the variable si ist to the values 

A*8*C<0 il#«|i q«»rf s«*123(8)#IX*fY*3ll 
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Ol^O SEHI-FORH^L SYHTAK D£SCRIf>TIQI^ 
D1»3.S FOI?SISN TiXT 



The ns?(t exa!«i>le Illustrates how a paraaieter list may be passa 
ts a for sign text paraiii«ter« 

\ i>llst « •! I«lfifll« ""colyiiins* eois«l*»80 i>«oyt !• 

\ count * yCI4T fplistl 

\ lOM » SfhLS (plist# Z* LOVI 

\ lilgii « VAIS fpilsty 2j HIV) 

\ si 1st « GgNtlST (pilstf Ifidttx) 

Count is sat to 3| Iom Is s«t tot 

COLS-1 

hiili is set to BQ$ and sllst Is set tos 

I«IHFIL£fCQLS«l**80#0-0UT 
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Dl»3.6 PARAHETiR LISTS 

01.3.6 PARAHSTIt LISTS 

<pafarB8t8f llst> si« £<par as}etar> CC»1 <paraBitt«r»1 

<part8iater> «»« l<pmT%m%tmT n«iiit> C*13 <v«ly« Hst> 
I <partffleter nas9e> 
J <null> 

< value llst> Jt« <valy8> 

J < t<valye> CCfl <valu«»1 ) 

<vaiue> «t« <yalya sid«> CO <valy« sJda>3 

<valya si cl®> ji« <«xpr> I <fortign t«xt> 
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Dl.O SS^I-FOR«Al SYNTAX OiSCRI?TIQ« 
Dl«3.^ SES l»I^OCi$$Oi CAU 



01. 3«? SiS Pi^riCiSSOt CAil 

<cs«p> i»« C|l«3 <«i^<l of nn«> 
lit* 

<i>roc can> tts <procs<Sure f^affle> C»1 <paraiBeter nst> <csep> 

<eontfor stit«fli«ftt> ««« <stflnf> 

<contfol st«teffltnts> *t« <control statew«nt> C<csep>1 

CC*3 C<control sttte«€nt>3 £<cs€i>>l> 

<call alement> *i» <pfoc call> 3 <contfi3l stateflief)ts> 

<SES can> tt= SiS tf <paraf!}«ter nst>3 . 

<c«M «l«si«iit> C<eal I 8lamant>> 

iscause of operating systems rastr ictionsf a <p«raffletef llst> 
foHowlfig the fiS (processor na»e) must have explicit punctuation* 
That Is to say> eoasias must be used to separate parameters Cand 
values) and equal signs must be used to separate parameter names 
Ckeywordsl from their value lists* 



Al so# 
letters* 



the 



operating systeiii Is not net I icquiinted Mith loner case 
so only upper case should be usedl hoHever* HAH/IAF <or 
T£L£X) and the SIS processor alleviate this probleni by converting 
loner case letters to upper case on command and continuation lines* 



ihen <control stateii!ents> are used In a <SE$ catl># the SIS 
processor Insures that they are all "properly" terminated^ l«e« 
each <control statement> string is scanned for a right parenthesis 
or period and If ntlther of these characters Is found* a period will 
be appended at the end of the strlngi If hoi«ever# a right 
parenthesis or period is found* the string will be left alone* NOTE 
that this is the only validity checking of the <controi statefiient> 
done by the SSS processor* 
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01.0 SiMI-FOi^flAl SYNTAX DSSCRIPTIOH 
0l,3,8 SUSSTITUTIOH 

01,3«8 SUBSTITUTION 

<substityt«> St* <parai»€ter nai»«> J <varlaljls naroe> 
< default substitution ohtrict«r> ««» £ 
< alternate substitution ct5«ract«f> i«* 

ni.i^riJLiiililsi 

<substi tytlon char> at* 

<dtf«ult substitution chir«ct«f> 
I <alternate substitution charact8r> 

<sybstl tution> «t « 

<substitutlon ch«r> <substltutt> <substl tutlon cbir> 
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01.0 SgHI-FORHAL SYHTAX DESCRIPTION 
01.3.9 PROCfDUI^SS 

oi.3.9 pwcmmm 

<procadyre> tt* <pfoc8dure ldefttlfi«r> C<proc««lufe llne» 

<proceiJyre Hr^e> it* C<proce(lure line 8lew8nt» 

<procedur« Mn«i sl«flBtrjt> *«« <sulssti tution> 

S <any ASCII cfisiract«f> 

The process af substitution applied to a <prooedyfe I lne> yields 
«n <obj«ot Ho«>. 

<obJect iina> Jt* <directi¥e lln«> 

J <eB!Pty I lne> 
« <dtta I lnt> 

<d8fault directive charact9r> ii^ \ 

<ilternate directive ch8racter> tt« 

u^-ifjsjinHni+i-n-i-i/rmsi^i.iiMi? 

Ul.liaiLllSiUii 

<dlr8ctlve header> **« 

<defiult directive character > 
I <alternate substitution charactar> 

<dlr active llne> ii« <dlrectlve header> <dlr«ctlve> 

<eiiipty 1 1 ne> 1 1 « 

<dati irne> «i« <any line Mhlch Is not "empty" and does 

not begin Mith a directive iieader> 

liatS' <e!apty Iin8>s may contain comnients enclosed In double 
quotes. 
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oi«o sBni-pmmi syntax descrii^tion 

Dl.3.10 DIRECTIVES 

D1.3.1D DIRECTIVES 

<dlf«ctlfi> 1 1« <tssi in«tnt> 

I <lf Mhn8> <boolean expr> C<tlien 6q>1 
J <e}clt eycl«> CMHiN <boolttn 8xpr>3 
t <<llf«ctlve naiBe> <para8a«t8r nst> 

<tsslgfn»ant> si« <asslgnee> » <expr> 

<if ^hil«> tt* IF I ORIF I tHIlE 

<th«fi do> «i« THEN 
I DO 

<exlt cyolO it= EXIT I CYCLE 
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Ol.O SEHI-FORMAL SYNTAX DESCRIPTION 
D1.4 lIHiS AND THEIR COHTINUATIQN 

01.4 Lii£i.Ma-ia£iE-coiiiiiiyiiiai 

It is sawatlwes necessary to pass wore paraineters to a procedure 
Cor give more paremeters to a di recti y«} than Mill fit on one line 
I lines are normally Mmited to 80 cfiartcters In length* however* 
TELEK further limits the command lines to about 70 characters — for 
reasons known only to TEliX — continuation lines entered at the 
ter?nlntl iiiy# honsver* be 80 characters long}« To handle this 
proble!!)^ S€S processes continuation lines* 

The aflaatllS ^^t result of using continuation lines Is to 
construct an unbroken I ine of up to 256 characters* 

Continuation may only be used In conjunction tilth SSS directives 
and yih^n calling SES to process a procedure* Continuation Is 
signalled on the line which is to be continued* not the continuation 
line itself* Note that the <conti nuatlon slinai> Is not considered 
to be part of the line* The ujechanlsw for doing this Is defined as 
fol loi«s s 



<*«hoie llne> it« 

<llne starter > <stuf 1> t <cont Inuat Ion slgnal> 

<stuf Z> C <oontlnuation slgnal> 

<stuf n> > 1 



<contlnuation slgnal> tt» **C.> 

<Hne starter> it» <directive haader> <nawie> 

J SiS <paraffleter llst> 

<stuf l> it* <»ihatever belongs *#lth the line starter> 
" 1 <« i <« n « 



The affect of this Is as If <whole llne> had bei%n specified «s« 
<llne starter> <stuf 1> C<stuf l» 
^i2tfi< Syntactic units CtokensI lai cross line boundaries* 
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£1.0 icayiEE-MiiLin 

ACQUIRE is a pTQ^r^m tliat enables easy retrieval Cacquisition) of 
permanent f 1 1 ss» 

ACQUIRE combines the functions of the NOS "ATTACH** and «e£T« 
control stateroents. For each flit specified ACQUIRi deterailnes If 
the file is already local to the Job (unless suppressed by the PG 
ptrifflettr* set be Ion) # If so it is rewoundl if not* then for each 
one of a list of user nai^es* an ATTACH Is attenpted ()«aitlngf if 
necessary* until the file Is not busyl* and If that falls a 6ET Is 
tried. If* after all this* the file is still not local* an 
appropriate dayf I le message Is issued* 

Unless the A (abort) parameter is specified* ACQUIRE mIII abort 
only because of control stateaient format qt arfluwent errors* or 
because of a permanent file manager (PFH) detected errorl and not 
because one (or i^orel of the specified flies could not be found* 

The control statement forjsat for ACQUIPS Is t 

ACQUIRif if fil«pf nl* if n2«pfn2»«««/opX»op29«««} 

Ifni is the (locall nawe of the file once it has been ACQllIREd 
(note that this Is the naiae used In making the ••Is the file 
already local?" test) 

pfni Is the permanent file naroe for the file (if «pfnl Is omitted* 
pfni is assuned to be the same as Ifnl) 

opi specify options used for acquiring the flleCs) i 

A specifies that If a file Is not found* the program 

should abort 

NA is the opposite of A (and is the default) 

FO specifies Permanent Only* I.e. that If a file is 

already local* It Mill be returned and then the 
ATTACH and GiT mI I I be attef«pted 

UN«users specifies a list ^f user names to be searched for 
each file (the user names are separated from each 
other by commas) 

H«moda specifies the access mode desired for the file 

(READ or R — the default* WRITE or K* or EXECUTE 
or €) 
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Pll«pi« spacifits tfs« permanent file's password 

PH^'pn specifies the ptcknaaie for the per«ttf^ant file 

Mhen ACQUIRE Is att8«ptlng an ATTACH or GST# if the file Is busy 
or If i permanent file utility is active* the foil owing message will 
be Issued ^n4 the request will be retried i 

- HiAITINS FOR l>FH«per«anent«f ile.naae UN»user«n«iBe 

Mhen ACQUIRH Is attempting an ATTACH or G€Tf If an error Is 

detected by PFH the following laessage Is Issued and the prcgraai Is 
aborted * 

- £RROR WITH PFH«pef manent^f I le.nane UN«user«naii6 

In both of the above casest the designated message i>illl be 
preceeded by a siore specific message generated by PFM* 
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Fl.O MIEiai-MIIilll 

EXTRACT Is a prograia tNat enables easy retrieval of records froa? 
P9rm%n&nt file Cor local) libraries* 

Although the prograffl Is dtslfnad prlitrily for use In proctdure 
files* It can be very useful on Its Qun* 

BxnkCT is similar in function to the NQS ••GTR'» stateflient. It 
differs from ••GTR»* In the follomlni naysi 

EKT94CT Insists that the library to be searciiei has i 
directory fthls can fee built using the NOS utility ••LIBgDIT*'!. 

o The record type pariflieter for EXTRACT* if given* applies to 
all records to be extracted* and If not given* only the nawes 
of the records are used when searching the library* 

o Each attracted record Is copied to Its omn local file by 
gXTI^ACT* rather than all to the same file* 

EXTRACT does not Insist that the library to be searched be 
local to the Job Mhen It's called* but nIII ACQUIRE the 
library from a permanent file catalog. 

The control statement forsiat ls« 

EXTRACTf I f nl«rnl* I f ii2«rn3* •••ioplfOpZf •• • > 

Ifnl Is the local file name iivtn to the record once It's 
extracted (Ifnl Is RgVIQUND before and after the extraction 
takes place)* 

rnl Is the name of the record to fee extracted Clf omitted* It is 

assumed to be the same as Ifnl)* 

opi These parameters specify options that control the extraction 

process « 

A Specifies that If a record Is not found* the 

program should abort* 

NA Is the opposite of A (and is the default)* 

T«rt Specifies the record type Uf given* It applies 

to all records being extracted! if omitted* only 
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the record navies are used Hhen searciiing the 
I Ibrtry)* 

l«libiiniie Specifies the niee of tlie library to be searct^ed 

for the records Clf omitted* "PROCLIB« Is 
assumed)* 

LFN«Mblfn Specifies the local flit nt^e for the library 
Clf omitted* the «*llbnaae»» fro«i the L paraeter 
Is ysedl* Note that this Is the ntie used to 
wake the ••Is file local?* test Hhen ACQUIS I ng 
the library* 

UN»yn Specifies the user naiBe of the pertinent file 

catalog to be searched for ••llbnaffle*' If It's not 
already local Clf oraltted* the current user Is 
assuisedl* 

?^»pn Specifies the library's periaanent file password* 

PN«pn Specifies the library's permanent file packnanie* 

Valid f%QOT^ type designators are documented under the 
description of the ••CATALOG*' control statement In the NQS Reference 
Hanyal* 

In addition to these standard types* there's one more ••type" 
processed by BXTRACT* *ihlch Is designated by ••TXT^'* This ••type" Is 
used to denote ••TSXT** records thatt Mhen extracted* are to have 
their first line <*ihlch contains the record's nefie) ••stripped off««* 
This Is useful if* for exaniplef one has records containing 
directives for a NOS utility* In which case the name of such a 
record Is In all likelihood an Illegal directive to the utility 
program. 

EXTRACT Mill abort under any of the following conditions! 

format or argument error Cs) on the control statement 

o the specified library could not be AQUIRSd 

o the library file does not have a directory as the last record 
before end-of-l nformatlon 

Hote# however* that EXTRACT won't abort If It does not find any 
of the requested records Conly an Informative dayflle message Is 
Issued)* unless the Abort parameter was coded on the call* 
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If th« I llirary file Mas not local to the job mhen EXTI^ACT was 
caliady It win be RiTiltMtd wtien EXTRACT t«r»i nates normal I y| but# 
If the library fll« was locsl* gXTtACT will REMIMD It prior to 
normal ter«lnitlon« 
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S1*0 SISMi-yilUII 

SESHSS Is a prograiB wJilch copies the coaiment field of Its call 
lint to « fllt« Tlie control statement forraat is« 

SSSMS6# f 1 1 «• mmssmm 

file is tlie naffle of the file to receive the message Clf 

ailtted# OUTRUT Is tssaied) 

laessage Is the message to he *irltten to the file 

The wessage mIII be virltten to the file only If the file Is a 
teriilnal file* or If ••file*' was explicitly quoted on the call line. 

SSS!1SS can be used In procedure files to Inforw the user about 
what the procedure Is currently doing* It cm also he used for 
creating flits of Input directives to utility pfQ^T^m% when such 
directives are dependent on execution time considerations* 
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